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2 ‘The MDL Programming Language 


Abstract 


The MDL. programming language began existence in fate 1970 (under the name Muddle) as a 
sticcessor 10 Lisp (Moon, 1974), a candidate vehicle for the Dynamic Modeling System, and a possible 
base for inplewentation of Planner (Hewitt, 1969). The original design goals included an 
interactive integrated environment for programming, debugging, loading, and editing: ease in 
earning and use: facilities for structured, modular, shared programs: extensibility of syntax, data 
types Jata-type checking for debugging aud optional data-type declarations for 
conipiled efficiency: associative storage, coroutining. and graphics. Along the way to reaching those 
goals. it developed flexible input/output (including the ARPA Network), and flexible interrupt and 
signal handling, Lt now serves ay a base for software prototyping, research, development, education, 
and implementation of the majority of programs at MIT-DMS: a library of sharable modules, a 
coherent user interface. special research projects, autonomous dacinons, etc. 


operators: 


This document was originally intended to be a simple low-level introduction to MDL. It has, 
however, acquireil a case of elephantiasis and now amounts to a discursive description of the whole 
interpreter. as realized in MDL release numbers 55 (ITS version) and 105 (Tenex and Tops-20 
Versions), (Significant changes from the previous edition are marked in the margin.) A low-level 
introduction way still be had by restricting one’s attention to specially-marked sections only. The 
scope of the document is confined as much as possible to the interpreter itself. Other adjuncts 
(compiler. assembler, preloaded user programs, library) are mentioned as little as possible, despite 
their value in promoting the language seen by a user from “basic survival” to “comfortable living”. 
Indeed, MDL could not fulfill the above design goals without the compiler, assembler, structure 
editor, cantrol-stack printer, context printer, pretty-printer, dynamic loader, and library system — all 
of which are not part of the interpreter but programs written in MDL and symbiotic with one 
another. Further information on these adjunets can be found in Lebling’s (1979) document. 
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Foreword 


Trying to explain MDL to an uninitiate is somewhat like trying to untie a Gordian knot, Whatever 
topic one chooses to discuss first, full discussion of it appears to imply discussion of everything 
else. What follows is a discursive presentation of MDL in an order apparently requiring the fewest 
forward references. It is not perfect in that regard: however, if you are patient and willing to 
accept a few, stated things as “magic” until they can be explained better, you will probably not have 
too many problems understanding what is going on. 


There are no “practice problems": you are assumed to be learning MDL for some purpose, and your 
work in achieving that purpose will be more useful and motivated than artificial problems. In 
several cases, the examples contain illustrations of important points which are not covered in the 
text, Ignore examples at your peril 


This document does not assume knowledge of any specific programming language on the your part. 
However, “computational literacy” is assumed: you should have written at least one program before. 
Also, very little familiarity is assumed with the interactive time-sharing operating systems under 
which MDL runs -- ITS, Tenex, and Tops-20~ namely just file and user naming conventions. 


Notation: 


Sections marked [1] are recommended for an uninitiate’s first reading, in lieu of a separate 
introduction or primer for MDL. [On first reading, text within brackets like these should be 
ignored.) 


Most specifically indicated examples herein are composed of pairs of lines. The first line of a pair, 
the input, always ends in S (which is how the ASCH character ESC is represented, and which always 
represents it}. The second line is the result of MDL's groveling over the first, If you were to type 
all the first fines at MDL. it would respond with all the second lines. (More exactly, the “first line” 


is one or more objects in MDL followed by $, and the “second line” is everything up to the next 
“first line’) 


Anything which is written in the MDL language or which is typed on a computer terininal appears 
herein in a gothic font, as in ROOT. A metasyntactic variable ~ something to be replaced in actual 
use by something else — appears as radixfix, in an italic font; often the variable will have both a 
meaning and a data type (as here). but sometimes one of those will be omitted, for obvious reasons. 


An ellipsis (...) indicates that something uninteresting has been omitted. The character ~ means 
that the following character is to be “controllified’: it is usually typed by holding down a terminal's 
CTRL key and striking the other key. 
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Chapter 1. Basic Interaction 


The purpose of this chapter is to provide you with that minimal amount of information needed to 
experiment with MDL while reading this document. It is strongly recommended that you do 
experiment, especially upon reaching chapter 5 (Simple Functions). 


LLL Loading MDL [1] 


First, catch your rabbit. Somehow get the interpreter running ~ the program in the file SYS:TS MOL 
in the ITS version or SYS:MOL-SAV in the Tenex version or SYS:MOL.EXE in the Tops-20 version. 
The interpreter will first type out some sews relating to MDL, if any, then type 


LISTENING-AT-LEVEL 1 PROCESS 1 
and then wait for you to type something 


The program which you are now running is an interpreter for the language MDL. All it knows how 
to do is interpret MDL expressions, There is no special “command language: you communicate 
with the program: -- make it do things for you ~ by actually typing legal MDL expressions, which it 
then interprets. Everything you can do at a terminal can be done in a program, and vice versa, in 
exactly the same way. 


The program will be referred to ay just "MDL" (or “the interpreter”) from here on, There is no 
ambiguity, since the program is Just an incarnation of the concept “MDL”. 


12. Typing [1] 


Typing a character at MDL. normally just causes that character to be echoed (printed on your 
terminal) and remembered in a buffer, The only characters for which this is normally not true act 
as follows: 


Typing $ (ESC) causes MDL to echo dollar-sign and causes the contents of the buffer (the characters 
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which you've typed) to be interpreted as an expression(s) in MDL. When this interpretation is done, 
the result will be printed and MDL will wait for more typing. ESC will be represented by the glyph 
$ in this document, 


Typing the rubout character (DEL in the ITS and Tops-20 versions, control-A int the Tenex version) 
causes the last character in the buffer - the one most recently typed -- to be thrown away (deleted). 
If you now immediately type another rubout, once again the last character is deleted - namely, the 
second most recently typed. Etc. The character deleted is echoed, so you can see what you're doing. 
On some “display” terminals, rubout will “echo” by causing the deleted character to disappear. If no 
characters are in the buffer, rubout echoes as carriage-return line-feed. 


Typing *@ (control-atsign) deletes everything you have typed since the last $, and prints a carriage- 
return line-feed. 


Typing *0 (control-D) causes the current input buffer to be typed back out at you. This allows you 
to see what you really have, without the confusing re-echoed characters produced by rubout. 


Typing “L (control-L) produces the same effect as typing “D, except that, if your terminal is a 
“display” terminal (For example, IMLAC, ARDS, Datapoint). it first clears the screen. 


Typing “6 (control-G) causes MDL to stop whatever it is doing and act as if an error had occurred 
(section 1.4). 7G is generally most useful for temporary interruptions to check the progress of a 
computation. °G is “reversible” ~- that is, it does not destroy any of the “state” of the computation it 
interrupts. To “undo” a *6, type the characters 


<ERRET TDS 

(This is discussed more fully far below, in section 16.4.) 

Typing *S (control-S) causes MDL to throw away what it is currently doing and return to a normal 
“listening” state. (In the Tenex and Tops-20 versions, “0 also should have the same effect.) “S is 


generally most useful for aborting infinite loops and similar terrible things. ~S destroys whatever 
is going on, and so it is not reversible. 


Most expressions in MDL include “brackets” (generically meant) that must be correctly paired and 
nested. If you end your typing with the pair of characters 1S (exclamation-point ESC), all currently 
t double-quotes, which bracket strings of characters) will automatically be 
n will start, Without the !, MDL will just sit there waiting for you to pair 
them. If you have improperly nested parentheses, brackets, etc., within the expression you typed, an 
error will occur, aud MDL will tell you what is wrong. 


Once the brackets are properly paired, MDL will immediately echo carriage-return and line-feed, and 
the next thing it prints will be the result of the evaluation. Thus, if a plain $ is not so echoed, you 
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have some expression unclosed. In that case, if you have not typed any characters beyond the S, 
you ally rub out the $ and other characters back to the beginning of the unclosed expression. 
Otherwise, what you have typed is beyond the help of rubout and *@; if you want to abort it, use 
“3, 


MDL accepts and distinguishes between upper and lower case. All “built-in functions” must be 
referenced in upper case. 


Loading a File [1] 


If you have a program in MDL that you have written as an ASCII file on some device, you can 
“toad” it by typing 


<FLOAD file>S 


where file is the name of the file, in standard operating-system syntax, enclosed in "s (double- 
quotes). Omitted parts of the file naine are taken by default from the file name "DSK: INPUT >* 
(in the ITS version) of "DSK: INPUT.HUD (in the Tenex and Tops-20 versions) in the current disk 
directory. 


Once you type $, MDL will process the text im the file (including FLOADs) exactly as if you had 
typed it on a terminal and followed it with S, except that "values" produced by the computations 
are not printed. When MDL is finished processing the file, it will print "DONE". 


When MDL starts running, it will FLOAD the file "MUDDLE INIT* (ITS version) or "MUDDLE. INIT" 
(Tenex and Tops-20 versions), if it exists, 


When MDL decides for some reason that something is wrong, the standard sequence of evaluation is 
interrupted and an error function is called. This produces the following terminal output: 


FERROR* 

often-hyphenated-reason 
function-in-which-error-occurred 
LISTENING-AT-LEVEL integer PROCESS integer 


You can now interact with MDL as usual, typing expressions and having them evaluated. There 
exist facilities (built-in functions) allowing you to find out What went wrong, restart, or abandon 
whatever was going on, In particular, you can recover from an error ~ that is, undo everything but 
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side effects and return to the initial typing phase ~ by typing the following first line, to which 
MDL will respond with the second line: 


CERRETOS 
LISTENING-AT-LEVEL 1 PROCESS 1 


If you type the following first line while still in the error state (before <ERRET>), MDL will print, as 
shown, the arguments (or “parameters” or “inputs” or “independent variables") which gave 
indigestion to the unhappy function 


<ARGS CFRAME <FRAMED>2$ 
[arguments to unhappy function } 


This will be explained by and by. 


14 Basic Interaction 


20 The MDL Programming Language 


Chapter 2. Read, Evaluate, and Print 


2. General [1] 
Once you type $ and all brackets are correctly paired and nested, the current contents of the input 
buffer go through processing by three functions successively: first READ, which passes its output to 
EVAL ("evaluate"). which passes its output to PRINT, whose output is typed on the terminal. 
[Actually, the sequence is more like READ, CRLF, EVAL, PRINI, CRLF (explained in chapter 11}; 
MDL gives you a carriage-return Jine-feed when the READ is complete, that is, when all brackets are 
paired.) 
Functionally. 

READ: printable representations -> MDL objects 

EVAL: MDL objects > MDL objects 


PRIN 


IDL ob jects --> printable representations 
That is, READ takes ASCII text, such as is typed in at a terminal, and creates the MDL objects 
represented by that text. PRINT takes MDL objects, creates ASCII text representations of them, and 


types them out. EVAL, which is the really important one, performs transformations on MDL 
objects. 


2.2. Philosophy (TYPCS) [1] 


In a general sense, when you are interacting with MDL, you are dealing with a world inhabited only 
by a particular set of objects: MDL objects. 


MDL objects are best considered as abstract entities with abstract properties. The properties of a 
particular MDL object depend upon the class of MDL objects to which it belongs. This class is the 
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TYPE of the MDL object. Every MDL object has a TYPE, and every TYPE has its own peculiarities. 
There are many different TYPEs in MDL; they will gradually be introduced below, but in the 
meantime here is a representative sample: SUBR (the TYPE of READ, EVAL and PRINT), FSUBR, LIST, 
VECTOR, FORM, FUNCTION, ete. Since every object has a TYPE, one often abbreviates “an object of 
TYPE type” by saying “a type". 


‘The laws of the MDL world are defined by EVAL. In a very real sense, EVAL is the only MDL object 
Which “acts”. which “does something”. In “acting’, EVAL is always “following the directions” of some 
MDL object. Every MDL object should be looked upon as supplying a set of directions to EVAL; 
what these directions are depends heavily on the TYPE of the MDL object. 


Since EVAL is so ever-present, an abbreviation is in order: “evaluates to something” or “EVALs to 
something” should be taken as an abbreviation for “when given to EVAL, causes EVAL to return 
something” 


As abstract entities, MDL objects are, of course, not “visible”. There is, however, a standard way of 
representing abstract MDL objects in the real world. The standard way of representing any given 
TYPE of MDL object will be given below when the TYPE is introduced. These standard 
representations are what READ understands, and what PRINT produces, 


2.3. Example (TYPE FIX) [1] 


is 
1 


The following has occurred: 

First, READ recognized the character 1 as the representation for an object of TYPE FIX, in particular 
the one which corresponds to the integer one. (FIX means integer, because the decimal point is 
understood always to be in a fixed position: at the right-hand end.) READ built the MDL object 
corresponding to the decimal representation typed, and returned it. 


Then EVAL noted that its input was of TYPE FIX. An object of TYPE FIX evaluates to itself, so 
EVAL returned its input undisturbed. 


‘Then PRINT saw that its input was of TYPE FIX, and printed on the terminal the decimal character 
Fepresentation of the corresponding integer. 
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Example (TYPE FLOA 


1.08 
) 


What went on was entirely analogous to the preceding example, except that the MDL object was of 
TYPE FLOAT. (FLOAT means a real number (of limited precision), because the decimal point can float 
around {0 any convenient position: an internal exponent part tells where it “really” belongs.) 


le (TYPE ATO, PNAME) 


GEoRGCS 
GEORGE 


This time a lot more happened. 


READ noted (hat what was typed had no special meaning, and therefore assumed that it was the 
representation of an identifier. that is, an object of TYPE ATOM. ("Atom™ means more or less 
indivisible.) READ therefore attempted to look up the representation in a table it keeps for such 
Purposes [a LIST of OBLISTs. available as the local value of the ATOM OBLIST} If READ finds an 
ATOM in its table corresponding to the representation, that ATOM is returned as READ's value. If READ 
fails in looking up. it creates a new ATOM, puts it in the table with the representation read [INSERT 
into <1 .OBLIST> usually} and returns the mew ATOM. Nothing which could in any way be 
referenced as a legal “value” is attached to the new ATOM. The initially-typed representation of an 
ATOM becomes its PNAME, meaning its name for PRINT. One often abbreviates “object of TYPE ATOM 
with PNAHE name” by saying “ATOM name”, 


EVAL, given an ATOM, returned just that ATOM. 
PRINT, given an ATOM, typed out its PNAME, 


At the end of this chapter, the question “what is a legal PNAME™ will be considered. Further on, the 
methods used to attach values to ATOMS will be described. 


2.6. FIXes. FLOATS. and ATOMs versus READ: Specifics 


2.6.1. READ and FIXed-point Numbers 


READ considers any grouping of characters which are solely digits to be a FIX, and the radix of the 
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representation is decimal by default. A - (hyphen) immediately preceding such a grouping 
represents a negative FIX. The largest FIX representable on the PDP-10 is two to the 35th power 
minus one, or 34 359 738 367 (decimal): the smallest is one Jess than the negative of that number. If 
you attempt to type in a FIX outside that range, READ converts it to a FLOAT; if a program you 
write attempts to produce a FIX outside that range, an overflow error will occur (unless it is 
disabled), 


‘The radix used by READ and PRINT is changeable by the user: however, there are two formats for 
representations of F1Xes which cause READ to use a specified radix independent of the current one. 
These are as follows: 


(1) If a group of digits is immediately Followed by a period (.), READ interprets that group as 
the decimal representation of a FIX. For example, 10. is always interpreted by READ as the 
decimal representation of ten, 


(2) If a group of digits is immediately enclosed on both sides by asterisks (*), READ interprets 
that group as the octal representation of a FIX. For example, *10* is always interpreted by 
READ as the octal representation of 


2.6.2. READ and PRINT versus FLOATing-point Numbers 


PRINT can produce, and READ can understand, two different formats for objects of TYPE FLOAT. 
‘The first is “decimal-point” notation, the second is “scientific” notation. Decimal radix is always 
used for representations of FLOATS. 


“Decimal-point" notation for a FLOAT consists of an arbitrarily Jong string of digits containing one 
« (period) which is followed by at least one digit. READ will make a FLOAT out of any such object, 
with a limit of precision of one part in 2 to the 27th power. 


“Scientific” notation consists of 


(1) a number, 


(2) immediately followed by E or e (upper or lower case letter E), 
(3) immediately followed by an exponent, 


where a “number” is an arbitrarily long string of digits, with or without a decimal point (see 
following note): and an “exponent” is up to two digits worth of FIX. This notation represents the 
“number” to the “exponent” power of ten, Note: if the “number” as above would by itself be a FIX, 
and if the "exponent" is positive, and if the result is within the allowed range of FIXes, then the 
Fesult will be a FIX, For example, READ understands 10E1 as 100 (a FIX), but 10E-1 as 1.0000000 (a 
FLOAT), 


‘The fargest-magnitude FLOAT which can be handled without overflow is 1.7014118E+38 (decimal 
|. The smallest-magnitude FLOAT which can be handled without underflow is .14693679E-38. 
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2.6.3. READ and PNAMES 


The question “what is a legal PNANE? is actually not a reasonable one to ask: any non-empty string 
of arbitrary characters ca be the PNAME of an ATOM. However, some PNAMEs are easier to type to 
READ 1 thers. But even the question “what are easily typed PNAMES?" is not too reasonable, 
because: READ decides that a group of characters is 2 PNAME by default: if it can't possibly be 
anything else, it'y a PNAME, So, the rules governing the specification of PNAMEs are messy, and best 
expressed in terms of what is not a PNAME, For simplicity, you can just consider any uninterrupted 
Group of upper. and lower-case letters (customarily) hyphens to be a PNAME; that will always 
work. If you are neither a perfectionist nor a masochist, skip to the next chapter. 


2.6.3.1, Non-PNANCS 
A group of characters is not a PHANE if 
(1) It represents a FLOAT or a FIX, as described above ~ that is, it is composed wholly of digits, 
or digits and a single . (period), or digits and a . and the letter E or e (with optional minus 


signs in the right places). 


(2) 11 begins with a . (period). 


(3) 11 contains ~ if typed interactively -- any of the characters which have special interactive 
effects: “@, “0, “L, *G, *S, *0, S (ESC), rubout. 


(4) It contains a format character ~ space, carriage-return, line-feed, form-feed, horizontal tab, 
vertical tab. 


(5) It contains a , (comma) or a # (number sign) or a * (single quote) or a ; (semicolon) or a X 
(percent sign). 


(6) It contains any variety of bracket ( or ) or [ of Jor < or > or { or } or *. 


In addition, the character \ (backslash) has a special interpretation, as mentioned below. Also, the 
pair of characters !~ (exclamation-point hyphen) has an extremely special interpretation, which you 
will reach at chapter 15, 


The characters mentioned in cases 4 through 6 are “separators” ~- that is, they signal to READ that 
whatever it was that the preceding characters represented, it’s done now. They can also indicate the 
Start of a new object's representation (all the opening “brackets” do just that). 


2.6.3.2. Examples 


The following examples are not in the "standard format” of “line typed in$ result printed”, because 
they are not. in some cases, complete objects: hence, READ would continue waiting for the brackets to 


26.3 - 2.63.2 Read, Evaluate, and Print 


ts, 
us 


ve 


at 
he 


to 


at 


The MDL Programming Language 2 


be closed. In other cases, they will produce errors during EVALuation if other -- currently irrelevant 
= conditions are not met. Instead, the right-hand column will be used to state just what READ 
thought the input in the left-hand column really was. 


ABCS an ATOM of PNAME ABC 

abes ATOM of PNAME abc 

ARBITRARTLY-LONG-PNANES an ATOM of PHAME ARBITRARILY-LONG-PNAME 

1.23458 AFLOAT, PRINTed as 1.2345000 

2.3458 am ATOM of PNAME 1.2.345 

A.or BS ‘an ATOM of PNAME A.or.B 

-A.or BS not an ATOM, but (as explained later) a FORM containing 
an ATOM of PNAHE A.or.B 

MORE THAN ONES three ATOMs, with PNAMES MORE, and THAN, and ONE 

ab(cdS an ATOM of PNAME ab, followed by the start of something 


else (The something else will contain an ATOM of PNAME 
beginning cd.) 


123450348 ‘an ATOM of PNAME 12345A34 (IF the A had been an E, the 
‘object would have been a FLOAT.) 


2.6.3.3. \ (Backslash) in ATOMs 


If you have a strange, uncontrollable compulsion to have what were referred to as "separators" above 
aS part of the PNAMES of your ATOMs, you can do so by preceding them with the character \ 
(backslash). \ will also magically turn an otherwise normal FIX or FLOAT into an ATOM if it appears 
amongst the digits, In fact. backslash in front of any character changes it from something special 
to “just another character” (including the character \). It is an escape character. 


When PRINT confronts an ATOM which had to be backslashed in order to be an ATOM, it will 
Gutifully type out the required \s. They will not, however, necessarily be where you typed them; 
they will instead be at those positions which will cause READ the least grief. For example, PRINT will 
tYPe out a PHAME which consists wholly of digits by first typing a \ and then typing the digits - no 
matter where you originally typed the \ (or \s). 
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2.6.3.4. Examples of Awful ATOMS 


The following examples illustrate the amount of insanity that can be perpetrated by using \. The 
format of the examples is again non-standard, this time not because anything is unfinished or in 
error, but because commenting is needed: PRINT doesn't do it Full justice. 


a\ one\ and\ a\ twoS ‘one ATOM, whose PNAME has Four spaces in it 

1234\56789S an ATOM of PNAME 123456789, which PRINTS as 
\123456789 

123\ $ ‘an ATOM of PNAME 123space, which PRINTS as \123\ , 


with a space on the end 


\s an ATOM whose PNAME is a single backslash 
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Chapter 3. Built-in Functions 


Su. Representation [1] 


Up to this point, all the objects we have been concerned with have had no internal structure 
discernible in MDL. While the charact of objects with internal structure differ greatly, the 
way READ and PRINT handle them is uniform, to wit: 


READ, when applied to the representation of a structured object, builds and returns an object of 
the indicated TYPE with elements formed by applying READ to each of their representations in 
turn. 


PRINT, when applied to a structured object, produces a representation of the object, with its 
elements represented as PRINT applied to each of them in turn. 


A MDL object which is used to represent the application of a function to its arguments is an object 
of TYPE FORM. Its printed representation is 


€ func arg-1 arg-2 -.. arg-N > 


Where func is an object which designates the function to be applied, and arg-1 through arg-N are 
objects which designate the arguments or “actual parameters” or “inputs”. A FORM is just a 
structured ob ject which is stored aud can be manipulated like a LIST (its “primitive type” is LIST ~ 
chapter 6). The application of the function to the arguments is done by EVAL. The usual meaning 
Of “Function” (uneapitalized) in this docuinent will be anything applicable to arguments. 


3.2. Evaluation [1] 
EVAL applied to a FORM acts as if following these directions: 


First, examine the fune (First element) of the FORM. If it is an ATOM, look at its "value” (global or 
local. in that order -- see next chapter). 1 not an ATOM, EVAL it and look at the result of the 
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evaluation, If what you are looking at is not something which can be applied to arguments, 
complain (via the ERROR function). Otherwise, inspect what you are Jooking at and follow its 
directions in evaluating or not evaluating the arguments (chapters 9 and 19) and then “apply the 
function” -- that is, EVAL the body of the object gotten from func. 


3.3. Built-in Fumetions (TYPE SUBR, TYPE FSUBR) [1] 


The built-in functions of MDL come in two varieties: those which have all their arguments EVALed 
before operating on them (TYPE SUBR, for “subroutine”, pronounced “subber”) and those which have 

'¢ of their arguments EVALed (TYPE FSUBR, historically from Lisp (Moon, 1974), pronounced 
“effsubber) Collectively they will be called F/SUBRs, although that term is not meaningful to the 
interpreter, See appendix 2 for a listing of all F/SUBRs and short descriptions. The term 
“Subroutine” will be used herein 10 mean both F/SUBRs and compiled user programs (RSUBRs and 
RSUBR-ENTRYs -- chapter 19). 


Uniess otherwise stated, every MDL built-in Subroutine mentioned is of TYPE SUBR. Also, when it 
is stated that an argument of a SUBR must be of a particular TYPE, note that this means that EVAL 
of what is there must be of the particular TYPE. 


Another convenient abbreviation which will be used is “the SUBR pname™ in place of “the SUBR which 
is initially the ‘value’ of the ATOM of PNAME pname”, “The FSUBR pneme” will be used with a similar 
meaning. 


3.4. Examples (+ and FIX; Arithmetic) [1) 


K+ 24 6S 
12 


‘The SUGR + adds numbers, Most of the usual arithmetic functions are MDL SUBRs: Rey Baby. 
HIN. MAX, MOD, SIN, COS, ATAN, SORT, LOG, EXP, ABS. (See appendix 2 for short descriptions 
of these) All except MOD, which wants FIXes, are indifferent as to whether their arguments are 
FLOAT or FIX or a mixture. In the last case, they exhibit “contagious FLOATing”: one argument of 
TYPE FLOAT forces the result to be of TYPE FLOAT. 


«FIX 1.098 
1 


‘The SUBR FIX explicitly returns a FIXed-point number corresponding to a FLOATing-point number. 
FLOAT does the opposite. 


<+ 5 <8 2 398 
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n 
<SORT <+ C* 33> CF 4 49995 
5.0 

<- 53.298 


<MIN 1 2.08 
1.0 
</ 117 2,098 
0.5 


Note this last result: the division of two FIXes gives a FIX with truncation, not rounding, of the 
remainder: the intermediate result remains a FIX until a FLOAT argument is encountered. 


+, 7. *. /, MIN, and MAX all take any number of arguments, doing the operation with the first 
argument and the second, then with that result and the third argument, etc. If called with no 
arguments. each returns the identity for its operation (0, 0, 1, 1, the greatest FLOAT, and the 
least FLOAT, respectively) if called with one argument, each acts as if the identity and the argument 
had been supplicd. They all will cause an overflow or underflow error if any result, intermediate or 


final. is too large or too small for the machine's capacity, (That error can be disabled, if necessary 
+ section 16.9) 


One arithmetic function that always requires some discussion is the pseudo-random-number 
generator. MDIs is named RANDOM, and it always returns a FIX, uniformly distributed over the 
whole range of FIXes. If RANDOM is never called with arguments, it always returns the exact same 
Sequtence of numbers, for convenience in debugging. “Debugged" programs should give RANDOM two 
arguments on the first call, which become the seeds for a new sequence. Popular choices of new 
seeds are the nuibers given by TIME (which see), possibly with bits modified (chapter 18). Example 
(pick a number from one to ten”): 


<+ 1 <MOD ¢RANDOM> 10>>5 
4 
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Chapter 4. Values of Atoms 


4.1. General [1] 

There are two kinds of “value” which can be attached to an ATOM. An ATOM can have either, both, or 
neither. They interact in no way (except that alternately referring to one and then the other is 
inefficient). ‘These two values are referred to as the local value and the global value of an ATOH. 
The terins “local” and “global” are relative to PROCESSes (chapter 20), not functions or programs. 
‘The SUBRs which reference the local and global values of an ATOM, and some of the characteristics 
of local versus global values, follow. 


42. Global Values 


4.2.1. SETG (1) 
A global value can be assigned to an ATOM by the SUBR SETG ("set global’) as in 
<SETG atom any? 
Where ator) must EVAL fo an ATOM, and any can EVAL to anything. EVAL of the second argument 


becomes the global value of EVAL of the first argument, The value returned by the SETG is its 
second argument, namely the new global value of atom. 


Examples: 


<SETE FOO <SETS BAR S00>2S 
500 


‘The above made the global values of both the ATOM FOO and the ATOM BAR equal to the FIXed-point 
number 500. 


<SETG BAR FOODS 
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FOO 


‘That made the global value of the ATOM BAR equal to the ATOM FOO. 


4.2.2, GVAL [1] 
‘The SUBR GVAL ("global value") is used to reference the global value of an ATOM. 


<GVAL atom> 


returns as a value the global value of stom If atom does not evaluate to an ATOM, or if the ATOM to 
which it evaluates has no global value, an error occurs. 


GVAL applied to an ATOM anywhere, in any PROCESS, in any function, will return the same value. 
Any SETG anywhere changes the global value for everybody. Global values are context-independent. 


READ understands the character , (comma) as an abbreviation for an application of GVAL to 
whatever follows it. PRINT always translates an application of GVAL into the comma format, The 
following are absolutely equivalent: 


stom <GVAL atom> 


Assuming the examples in section 4.21 were carried out in the order given, the following will 
evaluate as indicated: 


.Foos 

500 

<GVAL FOODS 
500 

BARS 

Foo 

+ BARS 

500 


4.2.3. Note on SUBRs and FSUBRs 


The initial GVALs of the ATOMs used to refer to MDL “built-in® Subroutines are the SUBRs and FSUBRs 
which actually get applied when those ATOMS are referenced. If you don't like the way those 
routines work. you are perfectly free to SETG the ATOMs to your own versions, 
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4.2.4, GUNASSIGN 
<GUNASSIGN atom? 


(felobal unassign’) causes atom to have no assigned global value, whether or not it had one 
previously. ‘The storage used for the global value can become free for other uses. 


4.3. Local Values 


43.1. SET [1 


‘The SUBR SET is used to assign a local value to an ATOM. Applications of SET are of the form 


<SET atom any> 
SET returns EVAL of any just like SETG. 
Examples: 


<SET BAR <SET FOO 100>>S 
100 


Both BAR and FOO have been given local values equal to the FIXed-point number 100. 


<SET FOO BARDS 
BAR 


FOO has been given the local value BAR. 


Note that neither of the above did anything to any global values FOO and BAR might have had. 


4.3.2. LAL [1] 


The SUBR used to extract the local value of an ATOM is named LVAL. As with GVAL, READ 
understands an abbreviation for an application of LAL: the character . (period), and PRINT 
produces it. The following two representations are equivalent, and when EVAL operates on the 
corresponding MDL object, it returns the current local value of atom 


<LVAL atom? —-atom 
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The local value of an ATOM is unique within a PROCESS. SETting an ATOM in one PROCESS has no 
effect on its LVAL in another PROCESS, because each PROCESS has its own “control stack” (chapters 
20 and 22). 


Assume all of the previous examples in this chi 


ter have been done. Then the Following evaluate as 


BARS 
100 

<LVAL BARDS 
100 

-FOOS 

BAR 

+ -FOOS 

FOO 


4.3.3, UNASSIGN 


<UNASSIGN atom> 


causes afom to have no assigned local value, whether or not it had one previously. 


4.4. VALUE 
VALUE is a SUBR which takes an ATOM as an arguinent, and then: 


(1) if the ATOM has am LVAL, returns the LVAL; 
(2) if the ATOM thas no LVAL but has a GVAL, returns the GVAL; 
(3) if the ATOM has neither a GVAL nor an LVAL, calls the ERROR function, 


This order of seeking a value is the opposite of that used when an ATOM is the first element of a 
FORM. The latter will be called the G/LVAL, even though that name is not used in MDL. 


Example: 


<UMASSIGN ADS 
sere ADS 
vai ADS 
«set A 2s 


432-44 Values of Atoms 


34 


2 
<VALUE ADS: 
2 


AAS 


‘The MDL Programming Language 


Values of Atoms 


age 


The MDL Programming Language 35 


Chapter 5. Simple Functions 


eral {1} 


The MDL equivalent of a “program” (uncompiled) is an object of TYPE FUNCTION. Actually, full- 


blown “programs” are usually composed of sets of FUNCTIONs, with most FUNCTIONS in the set acting 
as “subprograms” 


‘A FUNCTION may be considered to be a SUBR or FSUBR which you yourself define, It is “run” by 
using a FORM to apply it to arguments (for example, <function arg-1 arg-2 ... >), and it always 
“returns” a single object, which Is used as the value of the FORM that applied it. The single object 
may be ignored by whatever “ran” the FUNCTION ~ equivalent to “returning no value” ~ or it may be 
a structured object containing many objects -- equivalent to “returning many values". MDL is an 
" tive” language. in contrast to “imperative” languages like Fortran. In MDL it is impossible 


‘ap 
fo return values through arguments in the normal case: they can be returned only as the value of the 
FORM itself. or as side effects to structured ob jects or global values. 


In this chapter a simple subset of the FUNCTIONS you can write is presented, namely FUNCTIONS 
which “act like” SUBRs with a fixed number of arguments. While this class corresponds to about 907 
of the FUNCTIONs ever written, you won't be able to do very much with them until you read further 
and learn more about MDL's control and manipulatory machinery. However, all that machinery is 
Just a bunch of SUDRs and FSUBRs, and you already know how to “use” them: you just need to be told 
What they do, Once you have FUNCTIONS under your belt, you can immediately make use of 
everything presented from this point on in this document. In fact, we recommend that you do so. 


Representation [1 


A FUNCTION is just another data object in MDL, of TYPE FUNCTION. It can be manipulated like any 
Other data object. PRINT represents 2 FUNCTION like this: 


#FUNCTION (elements) 
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that is, a number sign, the ATOM FUNCTION, 2 left parenthesis, each of the elements of the 
FUNCTION, and a right parenthesis. Since PRINT represents FUNCTIONS like this, you can type them 
in to READ this way. (But there are a few TYPEs for which that implication is false.) 


The elements of a FUNCTION can be “any number of anythings"; however, when you use a FUNCTION 
(apply it with a FORM), EVAL will complain if the FUNCTION does not look like 


FUNCTION (act:atom argumentssist dec! body) 


where act and dec! are aptional (section 9.8 and chapter 14k body is at least one MDL object — any 
old MDI. object: and, im this simple case, arguments is 


(any number of ATOMs) 


that is, something READ and PRINTed as: left parenthesis, any number ~ including zero ~ of ATOMS, | 
Fight parenthesis. (This is actually a normal MDL object of TYPE LIST, containing only ATOMs) 


‘Thus, these FUNCTIONS will cause errors ~ but only 


PFUNCTION () on 
*FUNCTION ((1) 2.7.3) = 
#FUNCTION ((ABCD)) == no body 

“FUNCTION (<* 122.4 C) == noargument LIST i 


irgument LIST or body 
}on-ATOM int argument LIST 


‘These FUNCTIONs will never cause errors because of format: | 


*FUNCTION ((A) A) 

FUNCTION COOQOOQQ00) 

FUNCTION ((A BC D EE F G H HIYA) <+ A .HIYAD) 
*FUNCTION ((0) <SETG C <* .Q ,C>> <* <HOD ,C 3> .Q>) 


#FUNCTION (() 123 4 5) 


and the last two actually do something which might be useful, (The first three are rather 
pathological, but legal.) 


53. Application of FUNCTIONs: Binding [1] | 
FUNCTIONs. like SUBRs 


FSUBRs. are applied using FORHs. So, 


<#FUNCTION ((X) <* .X .X>) 598 
25 


applied the indicated FUNCTION to 5 and returned 25. | 
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What EVAL does when applying 2 FUNCTION is the following: 
(1) Greate a “world” in which the ATOHs of the argument LIST have been SET to the values 
applied to the FUNCTION, and all other ATOMs have their original values. This is called 
“pinding”. 
~- In the above, this is a “world” in which X is SET to 5. 


(2) In that new "world", evaluate all the objects in the body of the FUNCTION, one after the 
other, from first to last. 


~- Iu the above, this means evaluate <* .X .X) in a “world” where X is SET to 5. 


(3) Throw away the “world” created, and restore the LVALs of all ATOMS bound in this 
application of the FUNCTION to thelr originals (if any). This is called “unbinding”. 


~ In the above, this simply gives X back the local value, if any, that it had before binding. 


(4) Return as a value the last value obtained when the FUNCTION's body was evaluated in step 
(2), 


~ Ln the above, this means return 25 as the value. 


The “world” mentioned above is actually an object of TYPE ENVIRONMENT. The fact that such 
“worlds” are separate from the FUNCTIONS which cause their generation means that all MDL 
FUNCTIONS can be used recursively. 


The only thing that is at all troublesome in this sequence is the effect of creating these new 
“worlds”, in particular, the fact that the previous world is completely restored. This means that if, 
inside a FUNCTION, you SET one of its argument ATOHs to something, that new LVAL will not be 
remembered when EVAL leaves the FUNCTION, However, if you SET an ATOM which is not in the 
Argument LIST (or SETG any ATOH) the new local (or global) value will be remembered. Examples: 


<SET X 038 
0 


<AFUNCTION ((X) <SET X <* .X .X>>) 595 
25 

xs 

o 
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On the other hand. 


<SET Y 08 

Cy) 

<AFUNCTION ((X) <SET Y <® .X .X>>) 598 
25 

YS 

25 


By using PRINT as a SUBR, we can “see” thal an argument’s LVAL really is changed while EVALuating 
the body of a FUNCTION: 


«SET X 595 

5 

<AFUNCTION ((X) PRINT .X> ¢# .X 10>) 398. 
313 

XS 

5 


‘The first number after the application FORH was typed out by the PRINT; the second is the value of 
the application, 


Remembering that LVALs of ATOMs not in argument LISTs are not changed, we can reference them 
within FUNCTIONS, as in 


<SET Z 10028 

100 

<AFUNCTION ((¥) €/ 2.19) 538 
20 


ATOMs used like Z or ¥ in the above examples are referred to as “free variables", ‘The use of free 
variables. while often quite convenient, is rather dangerous unless you know exactly how a 
FUNCTION Will always be used: if a FUNCTION containing free variables is used within a FUNCTION 
Within a FUNCTION within .. .. one of those FUNCTIONS might just happen to use your free variable 
in its argument LIST, binding it to some unknown value and possibly causing your use of it to be 
erroneous. Please note that “dangerous”, as used above, really means that it may be effectively 


impossible (1) for other people to use your FUNCTIONS, and (2) for you to use your FUNCTIONS a 
month (two weeks?) later. 
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STIONs (FUNCTION and DEFINE) [1] 


Obviously. typing #FUNCTION (...) all the time is neither reasonable nor adequate for many 
purposes. Normally. you just want a FUNCTION to be the GVAL of some ATOM -- the way SUBRs and 
FSUBRS are ~- so you can use it repeatedly (and recursively). Note that you generally do not want a 
FUNCTION to be the LVAL of an ATOM; this has the same problems as free variables. (Of course, there 
are always cases where you are being clever and want the ATOM to be re-bound . 


One way to “name” a FUNCTION is 
<SETG SQUARE #FUNCTION ((X) <* .X .X>)>$ 
AFUNCTION ((X) <® 2X .X>) 


So that 


<SQUARE 535 
25 

<SQUARE 1009 
10000 


Another way. which is somewhat cleaner in its typing: 


SSETG SQUARE <FUNCTION (X) <® .X .x>99$ 
#FUNCTION ((X) <* .X .X>) 


FUNCTION is an FSUBR which simply makes a FUNCTION out of its arguments and returns the created 
FUNCTION. 


This. however, is generally the best way: 


DEFINE SQUARE (X) <* .X .X>>$, 
SQUARE 

+ SQUARES 

#FUNCTION ((X) <® .X .X>) 


The last two lines immediately above are just to prove that DEFINE did the “right thing”. 


DEFINE is an FSUOR which SETGs EVAL of its first argument to the FUNCTION it makes from the rest 
OF its arguments, and then returns EVAL of its first argument. DEFINE obviously requires the least 
[Ping of the above methods, and is "best" from that standpoint. However, the real reason for using 
DEFINE is the following: If EVAL of DEFINE's first argument already has a GVAL, DEFINE produces an 
Srror. This helps to keep you from accidently redefining things ~ like MDL SUBRs and FSUBRs. The 
SETG constructions shoud be used only when you really do want to redefine something. DEFINE will 
be used in the rest of this document. 
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s absolutely necessary to use DEFINE to “redefine” things, there is a “switch” which 
can be used: if the LVAL of the ATOH REDEFINE is T (or anything not of TYPE FALSE), DEFINE will 
produce no errors, ‘The normal state can be restored by evaluating <SET REDEFINE <>>. See 
chapter 8.) 


Jes (Comments) [1 


Using SQUARE as defined above: 


<DEFINE HYPOT (SIDE-1 SIDE-2) 

;"This is a comment. This FUNCTION finds the 
length of the hypotenuse of a right triangle 
of sides SIDE-1 and SIDE-2 

SORT <+ <SQUARE .SIDE~1> <SQUARE .SIDE-2>>>>S 
WyPOT 
<HYPOT 3 498 
5.0 


Note that carriage-returns, line-feeds, tabs, ete. are just separators, like spaces. A comment is any 
single MDL object which follows a ; (semicolon). A comment can appear between any two MDL 
objects. A comment is totally ignored by EVAL but remembered and associated by READ with the 
place in the FUXCTION (or any other structured object) where it appeared. (This will become clearer 
after chapter 13.) The *s (double-quotes) serve to make everything between them a single MDL 
abject, whose TYPE is STRING (chapter 7) (SQRT is the SUBR which returns the square root of its 
argument. It always returns a FLOAT.) 


A whimsical FUNCTION: 


DEFINE ONE (THETA) ;"This FUNCTION always returns 1.* 
+ SQUARE <SIN .THETAD? 
SQUARE <COS .THETA?>>>S 
‘ONE 
“ONE 523 
0.99999996 
<ONE 0.2328 
0.99999999 


ONE always returns (approximately) one, since the sum of the squares of sin(x) and cos(x) is unity 
for any x. (SIM and COS always return FLOATs, and each takes its argument in radians. ATAN 
(arctangent) returns its value in radians. Any other trigonometric function can be compounded 
from these three.) 
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MDL doesn't have a general “to the power” SUBR, so let's define one using LOG and EXP (log base e, 
and € to a power, respectively: again, they return FLOATS). 


DEFINE ** (NUM PWR) CEXP <® PNR LOG .NUHD>2>S 
om 

ce 2 28 

4.000000) 

mn 5 32S 

125.00000 

<** 25 0.598 

5.0000001 


Two FUNCTIONs which use a single global variable (Since the GVAL is used, it cannot be rebound.) 


DEFINE START () <SETG GV 0>>5 
START 

DEFINE STEP () <SETG GV <+ ,GV 1>>>8 
step 

STARTS. 

0 

<STEPDS 

1 

<STEPDS 

2 

<STEPDS 

a 


START and STEP take no arguments, so their argument LISTs are empty. 
An interesting, but pathological, FUNCTION: 


SDEFINE INC (ATM) <SET .ATH <+ ..ATM 1>395 
INC 

<SET A ODS 

0 

<INC ADS 

1 

<INC ADS 

2 

“AS 

2 


INC takes an ATOH as an argument, and SETs that ATOM to its current LVAL plus 1. Note that inside 
INC. the ATOM ATM is SET to the ATOM which is its argument; thus . ATH returns the LVAL of the 
arguinent. However, there is a problem: 
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<SET ATH OS 
i) 
INC ATHDS 


*ERROR® 

ARG-WRONG-TYPE. 

+ 

LISTENTNG-AT-LEVEL 2 PROCESS 1 
ARGS <FRAME <FRAMED>>S. 

tam 1] 


The error occurred because .ATH was ATM, the argument to INC, and thus ..ATM was ATM also, We 
really want the outermost . in ..ATH to be done in the “world” (ENVIRONMENT) which existed just 61 
before INC was entered — and this definition of INC does both applications of LVAL in its own 
“world”, Techniques for doing INC “correctly” will be covered below. Read on, A 


Im 


wa 


; 8 
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Chapter 6. Data Types 


6.1. General [1 


A MDL object consists of two parts: its TYPE and its “data part” (appendix 1). The interpretation of 
the “data part” of an object depends of course on its TYPE. The structural organization of an object, 
that is, the way it is organized in storage. is referred to as its “primitive type". While there are 
many different TYPCs of objects in MDL, there are fewer primitive types. 


All structured objects in MDL are ordered sequences of elements. As such, there are SUBRs which 
Operate on all of them uniformly. as ordered sequences. On the other hand, the reason for having 
different primitive types of structured objects is that there are useful qualities of structured objects 
which are mutually incompatible. There are, therefore, SUBRs which do not work on all structured 
objects: these SUBRs exist to take full advantage of those mutually incompatible qualities. The 
most-commonly-used primitive types of structured objects are discussed in chapter 7, along with 
those special SUBRs operating on them. 


It is very easy to make a new MDL object that differs from an old one only in TYPE, as long as the 
Primitive type is unchanged, It is relatively difficult to make a new structured object that differs 
from an old one in primitive type, even if it has the same elements. 


Before talking any more about structured objects, some information needs to be given about TYPEs 
in general, 


62. Printed Representation [1] 


There are many TYPEs for which MDL has no specific representation. There aren't enough different 
kinds of brackets. The representation used for TYPEs without any special representation is 


#ype representation-as-i 


it-were-its-primitive-type 


READ will understand that format for any TYPE, and PRINT will use it by default. This 
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representational format will be referred to below as “# notation”. It was used above to represent 
FUNCTIONS. 


6.3. SUBRs Related to TYPES 


6.3.1. TYPE (1) 
<TYPE any> 


returns an ATOM whose PHAHE corresponds to the TYPE of any. There is no TYPE "TYPE", To type a 
TYPE (aren't homonyms wonderful), just type the appropriate ATOM, like FIX or FLOAT or ATOM ete. 
However. in this document we will use the convention that a metasyntactic variable can have type 
for a “data type": for example, foo:type means that the TYPE of foo is ATOM, but the ATOM must be 
something that the SUBR TYPE can return. 


Examples: 


TYPE 198 

FIX 

TYPE 1.028 
FLOAT 

<TYPE +> 
ATOM 

<TYPE ,#>$ 
SUBR 

<TYPE GEORGES: 
ATOH 


6.3.2. PRIMTYPE [1] 

<PRIMTYPE any> 
evaluates to the primitive type of any. The PRINTYPE of any is an ATOM which also represents a 
TYPE. The way an object can be manipulated depends solely upon its PRIMTYPE; the way it is 
evaluated depends upon its TYPE. 
Examples: 

<PRIMTYPE 1. 

worD 


<PRIMTYPE 1.098 
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woRD 
<PRIMTYPE ,+>$ 
worD 

<PRIMTYPE GEORGEDS 
ATOM 


6.3.3, TYPEPRIM (1) 
<TYPEPRIM type> 


returns the PRIMTYPE of an object whose TYPE is type. type is, as usual, an ATOM used to designate a 
TYPE. 


Examples: 


<TYPEPRIM FIXDS 
word 

<TYPEPRIM FLOATDS 
worD 

<TYPEPRIM SUBRDS 
WORD 

<TYPEPRIM ATOHDS 
ATOM 

<TYPEPRIM FORMDS 
ust 


6.3.4. CHTYPE [1 


<CHTYPE any type> 


Change type") returns a new object that has TYPE type and the same “data part” 
1). 


<CHTYPE (+ 2 2) FORMDS 
«+ 22> 


An error is generated if the PRIMTYPE of any is not the same as the TYPEPRIN of type. An error will 
also be generated if the attempted CTYPE is dangerous and/or senseless, for example, CHTYPEing = 
FIX to a SUOR. Unfortunately, there are few useful examples we can do at this point. 

(CHTYPEing a FIX to a FLOAT or vice Versa produces, in general, nonsense, since the bit formats for 
FIxes and FLOATs are different. The ‘SUBRS FIX and FLOAT convert between those formats. Useful 
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obscurity: because of their internal representations on the PDP-10, <CHTYPE <MAX> FIX> gives the 
least possible FIX, and analogously for MIN) 


Passing note: "# notation” is just an instruction to READ saying "READ the representation of the 
PRIMTYPE normally and (literally) CHTYPE it to the specified TYPE". [Or, if the PRIMTYPE is 
TEMPLATE, “apply the GVAL of the TYPE name (which should be a TEMPLATE constructor) to the given 
elements of the PRIMTYPE TEMPLATE as arguments."] 


6.4. More SUBRs Related to TYPEs 


6.4.1, ALLTYPES 
<ALLTYPES> 
returns a VECTOR (chapter 7) containing just those ATOHs which can currently be returned by TYPE 


Of PRIMTYPE. This is the very “TYPE vector” (section 22.1) that the interpreter uses: look, but don't 
touch, No examples: try it, or see appendix 3, 


6.4.2. VALID-TYPE?. 
<VALID-TYPE? afom> 


returns #FALSE () if atom is not the name of a TYPE, and the same object that <TYPE-C atom> 
(section 19.5) returns if it is. 


6.4.3, NEWTYPE 


MDL is a type-extensible language, in the sense that the programmer can invent new TYPEs and use 
thei in every way that the predefined TYPEs can be used. A program-defined TYPE is called a 
NEWTYPE. New PRINTYPEs cannot be invented except by changing the interpreter; thus the TYPEPRIH 
of a NEWTYPE must he chosen from those already available. But the name of a NEWTYPE (an ATOM of 
course) can be chosen freely ~ so long as it does not conflict with an existing TYPE name. More 
importantly. the program that defines a NEWTYPE can be included in a set of programs for 
manipulating objects of the NEWTYPE in ways that are more meaningful than the predefined SUBRs 
of MDI. 


Typically an object of a NEWTYPE isa structure that is a model of some entity in the real world ~ or 
whatever world the program is concerned with ~ and the elements of the structure are models of 
Parts or aspects of the real-world entity, A NEWTYPE definition is a convenient way of formalizing 
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this correspondence, of writing it down for all to see and use rather than keeping it in your head. 
If the defining set of programs provides functions for manipulating the NEWTYPE objects in all 
ways that are meaningful for the intended uses of the NEWTYPE, then any other program that wants 
to use the NEMTYPE can call the manipulation functions for all its needs, and it need never know or 
care about the internal details of the NEWTYPE objects. This technique is a standard way of 
providing modularity and abstraction. 


For exaniple, suppose you wanted to deal with airline schedules. If you were to construct a set of 
programms that define and manipulate a NEWTYPE called FLIGHT, then you could make that set into a 
standard package of programs and call on it to handle all information pertaining to scheduled 
airline flights Since all FLIGHTs would have the same quantity of information (more or fess) and 
you would want quick access to individual elements, you would not want the TYPEPRIM to be LIST. 
Since the elements would be of various TYPES, you would not want the TYPEPRIM to be UVECTOR — 
nor its variations STRING of BYTES, The natural choice would be a TYPEPRIM of VECTOR (although 
you could gai space and lose time with TEMPLATE instead). 


Now, the individual elements of a FLIGHT would, no doubt, have TYPEs and meanings that don't 
change. The clements of a FLIGHT might be airline code, flight number, originating-airport code, 
list of intermediate stops, destination-airport code, type of aircraft, days of operation, ete. Each and 
every FLIGHT would have the airline code for its First element (say), the flight number For its second, 
and so on, It iy atural to invent names (ATOMS) for these elements and always refer (o the elements 
by name. For example, you could <SETG AIRLINE 1> or <SETG AIRLINE <OFFSET 1 FLIGHT>> — 
and in either case CMANIFEST AIRLINE> so the compiler can generate more efficient code. Then, if 
the local value of F were a FLIGHT, <AIRLINE .F> would return the airline code, and <AIRLINE .F 
AA> would set the airline code to AA. Once that is done, you can forget about which element comes 
first: all you nerd to know are the names of the offsets. 


The next step is to notice that. outside the package of FLIGHT functions, no one needs to know 
Whether AIRLINE is just an offset or in fact a function of some kind. For example, the scheduled 
duration of # flight might not be explicitly stored in a FLIGHT, just the scheduled times of 
departure and arrival. But, if the package liad the proper OURATION function for calculating the 
uration, then the call DURATION .F> could return the duration, no matter how it is found, In this 
way the internal details of the package are conveniently hidden from view and abstracted away. 


The form of NEWTYPE definition allows for the TYPEs of all components of a NEWTYPE to be declared 
(chapter 14), for use both by a programmer while debugging progeams that use the NEWTYPE and by 
the compiler for generating faster code. It is very convenient to have the type declaration in the 
NEWTYPE definition itself, rather than replicating it everywhere the NETYPE is used. (If you think 
this dectaration might be obtrusive while debugging the programs in the NEWTYPE package, when 
inconsistent improvements are being made to various programs, you can either disassociate any 
declaration from the NCWTYPE or turn off MDL type-checking completely. Actually this declaration 
is typically more useful to a programmer during development than it is to the compiler.) 


<NEWTYPE atom type? 
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returns atom, after causing it to become the representation of a brand-new TYPE whose PRIMTYPE is 
<TYPEPRIN type>. What NEWTYPE actually does is make atom a legal argument to CHTYPE and 
TYPEPRIM. (Note that names of new TYPEs can be blocked lexically to prevent collision with other 
names, just like any other ATOHs -- chapter 15.) Objects of a NEWTYPE-created TYPE can be generated 
by creating an abject of the appropriate PRIMTYPE and using CHTYPE. They will be PRINTed 
(initially), and can be directly typed in, by the use of “# notation” as described above. EVAL of any 
object whose TYPE was created by NEWTYPE is initially the object itself, and, initially, you cannot 
APPLY something of a generated TYPE to arguments. But see below. 


Examples: 


<NEWTYPE GARGLE FIX>S 
GARGLE 

<TYPEPRIM GARGLEDS 
WORD 

<SET A <CHTYPE 1 GARGLED?S 
*GARGLE *000000000001* 
SET B #GARGLE 100>$ 
¥GARGLE *000000000144* 
<TYPE .B>S 

GARGLE 

<PRIMTYPE .8>S 

WORD 


6.4.4, PRINTTYPE, EVALTYPE and APPLYTYPE 
<PRINTTYPE type how> 
EVALTYPE type how> 


<APPLYTYPE type how 


all ret 


rn type, after specifying how MDL is to deal with it. 
These three SUBRs can be used to make newly-generated TYPEs behave in arbitrary ways, or to 
change the characteristics of standard MDL TYPEs PRINTTYPE tells MDL how to print type, 
EVALTYPE how to evaluate it, and APPLYTYPE how to apply it in a FORK. 


how can be either a TYPE or something that can be applied to arguments. 


If how is a TYPE, MDL will treat type Just like the TYPE given as how. how must have the same 
TYPEPRIM as type. 


If how is applicable, it will be used in the following way: 
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For PRINTTYPE, ow should take one argument: the object being output. how should output 
something without formatting (PRINL-stylek its result is ignored. (Note: how cannot use an output 
SUBR on how's own tse: endless recursion will result. OUTCHAN is bound during the application to 
the CHANNEL in use. or to a pseudoninternal channel for FLATSIZE ~ chapter 11.) If how is the SUBR 
PRINT, type will receive no special (reatmend in printing, that is, it will be printed as it was in an 
initial MDL or immediately after its defining NEWTYPE. 


For EVALTYPE. how sould take one argument: the object being evaluated, The value returned by 
how will be used as EVAL of the object. If how is the SUBR EVAL, type will receive no special 
treatment in evaluation 


For APPLYTYPE, row should take at least one argument. The first argument will be the object being 
applied: the eest will be the objets it was given as arguments, The result returned by how will be 
used ay Ihe rcuult of ‘the application. I how is the SUBR APPLY, type will receive no special 
treatment in application to arguments. 


If any of these SUBRs is given only one argument. that is if how is omitted, It returns the currently 
active how (a TYPE or an applicable object), or else #FALSE () if type is receiving no special 


Unfortunately, these examples are Fully understandable only after you have read through chapter Il. 


DEFINE ROMAN-PRINT (NUMB) 
<COND (<OR <L=? .NUMB O> <6? .NUMB 3999) 
<PRINC <CHTYPE .NUMB TIME>>) 
a 
<RCPRINT </ .NUMB 1000) *1[1\MJ> 
<RCPRINT </ .WUMB 100) *I[I\C 1\D 1\M]> 
<RCPRINT </ .MUMB 10> "ITI\K I\L 1\C]> 
<RCPRINT = .NUMB MICINE AW Vx} 295 
ROMAN-PRINT 


DEFINE RCPRINT (HOON Vv) 

<SET MODN <HOD .HODN 10> 

-MOON>) 

-MODN> <PRINC <1 ,¥>>) 

-MODN> CPRINC <1 .V>> CPRINC <1 .v>>) 

sMODND CPRENC <1 .V>> <PRINC <1 .V>> <PRINC <1 .V>>) 
-NOON> <PRINC <1 .V>> <PRINC <2 .v>>) 

-MOON> <PRINC <2 .V>>) 

~MODN> <PRINC <2 .V>> <PRINC <1 .v>>) 

-MODN> <PRINC <2 .V>> <PRINC <1 .V>> <PRINC <1 .V>>) 
-HOON> 

<PRINC <2 .V>> 

<PRINC €1 .V>> 
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<PRINC <1 .V>> 
<PRINC <1 .V>>) 


(<==? 9 .HODN> <PRINC <1 .V>> <PRINC <3 .V>>)>98 
RCPRINT 


<PRINTTYPE TIME FIX> 
TIME 

<PRINTTYPE FIX ,ROMAN-PRINT>? — ;*hee hi 
FIX 

«+ 2 298 

Vv 

1984S 

MCHLXXXIV 

<PRINTTYPE FIX , PRINTS. 

FIX 


‘airly harmless but necessary here*S 


hy 


<NEWTYPE GRITCH LIST> ;"a new TYPE of PRIMTYPE LIST*S 
GRITCH 

<EVALTYPE GRITCHDS 
PPALSE () 

<EVALTYPE GRITCH LIST> 
GRITCH 

<EVALTYPE GRITCHDS 
Lust 

*GRITCH (A <+ 1 23> }KSET A *ABC*>) — "Type in one.*S 
#GRITCH (A 6 !\A }\B 1\C) 


Vike a LIST*S 


<NEWTYPE HARRY VECTOR? 
HARRY 
CEVALTYPE HARRY #FUNCTION ((X) <1 .x>)> 

s"When a HARRY is EVALed, return its first element.*S 
HARRY 
#HARRY [1 2 3 4]8 
1 


a new TYPE of PRIMTYPE VECTOR*S 


<NEWTYPE WINNER LIST> 
WINWER 

<APPLYTYPE WINNERDS 
sFALSE () 

CAPPLYTYPE WINNER FUNCTION (W “TUPLE* T) (!.¥ !.T)>>S 
WINNER 

<APPLYTYPE WINNERDS 

FUNCTION ((W *TUPLE® T) (1.W 1.7) 

<AWINNER (A BC) <+ 1 2) QoS 

(ABC 34q) 


‘a TYPE with funny application*s 
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The following sequence makes MDL look just like Lisp. (This example is understandable only if 
you know Lisp (Moon, 1974} it is included only because it is so beautiful) 


EVALTYPE LIST FORMDS 
LIST 
EVALTYPE ATOM ,LVAL>S 
ATOM 


(+ 12)8 

3 

(SET ‘A 5)8 
s 


as 
5 


To complete the job. of course, we would have to do some SETG's: car is 1, cdr is ,REST, and 
Vambda is , FUNCTION. If you really do this example, you should “undo” it before continuing: 


SEVALTYPE "ATOM ,EVALDS: 
ATO 
SEVALTYPE LIST ,EVALDS 
List 
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Chapter 7. Structured Objects 


This chapter discusses structured objects in general and the five basic structured PRIMTYPEs. [We 
defer detailed discussion of the structured PRIMTYPEs TUPLE (section 9.2) and STORAGE (section 
22.2.2)) 


7.1. Manipulation 


The following SUBRs operate uniformly on all structured objects and generate an error if not 
applied to a structured object. Hereafter, structured represents a structured ob ject. 


7.11, LENGTH [1] 
LENGTH structured> 


evaluates to the number of elements in structured. 


74.2. NTH (1) 
<NTH structured fix> 


evaluates to the firth element of structured. An error occurs if fix is less than 1 or greater than 
LENGTH structured>. fix is optional, 1 by default. 


7.13, REST (1) 
CREST structured fix> 
evaluates to structured without its First fix elements. fix is optional, 1 by default. 


Obscure but important side effect: REST actually returns structured “CHTYPEd" (but not through 


7-718 Structured Objects 


ve 


mn 


‘The MDL Programming Language 53 


application of CHTYPE) to its PRIMTYPE. For example, REST of a FORM is a LIST. REST with an 
explicit second argument of 0 has no effect except for this TYPE change. 


744. PUT (1) 
<PUT structured fix anything-legal> 


first makes anythine-legal the firth element of structured, then evaluates to structured. anything-legal 
is anything which can legally be an element of structured often, this is synonymous with “any MDL 
object”, but see below. Au error occurs if fix is less than 1 or greater than <LENGTH structured>. 
(PUT is actually more general than this chapter 13.) 


74,5. GET 


<GET structured tiv> 
evaluates the same as <NTH structured fix>. It is more general than NTH, however (chapter 13), and 
is included here only for symmetry with PUT. 

71.6, APPLYing a FIX [I] 

EVAL understands the application of an object of TYPE FIX as a “shorthand” call to NTH of PUT, 
epending on whether it is given one or two arguments, respectively [unless the APPLYTYPE of FIX is 
changed), That is, CVAL considers the following two to be identical: 


Stix structured? 
NTH structured tix> 


and these: 


Stix structured object> 
<PUT structured fix object? 


(However, the compiler (Lebling, 1979) cannot generate efficient code from the longer forms unless 
it is sure that fix is a FIX (section 9.10). The two constructs are not identical even to EVAL, if the 
order of evaluation is significant: for example, these two: 

NTH .X CLENGTH CSET X .Y9>>  <<LENGTH <SET X .¥>> .x> 


are not identical.) 
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7.1.7. SUBSTRUC 


SUBSTRUC ("substructure") facilitates the construction of structures that are composed of sub-parts of 
existing structures. A special case of this would be a “substring” function. 


<SUBSTRUC from:structured rest:tix amount-fix to:structured> 


copies the first aniount elements of <REST from rest? into another object and returns the latter. All 
arguments are optional except from, which must be of PRIMTYPE LIST, VECTOR, TUPLE (treated like 
a VECTOR), STRING, BYICS, or UVECTOR. rest is 0 by default, and amount is all the elements by 
default. 0, if given, receives the copied elements, starting at its beginning; it must be an object 
whose TYPE is the PRIMTYPE of from (a VECTOR if from is a TUPLE) If fo is not given, a new object is 
returned. of TYPE <PRIMTYPE from> (a VECTOR if from is a TUPLE), which never shares with from. 
‘The copying is done in one fell swoop, not an element at a time. Note: due to an implementation 
resteiction, if from is of PRIMTYPE LIST, it must not share any elements with fo. 


7.2. Rep: 


tation of Basic Structures 


7.21, LIST [1] 
( element-1 element-2 ... element-N ) 


represents a LIST of elements. 


7.2.2, VECTOR [1] 
[ element-1 element-2 ... element-N } 


represents a VECTOR of Nelements. [A TUPLE is just like a VECTOR, but it lives on the control stack.) 


7.2.8. UVECTOR [1] 
1{ cloment-t element-2 ... element-N 1} 


represents a UVECTOR (uniform vector) of N elements. The second ! (exclamation-point) is optional 
for input. [A STORAGE is an archaic kind of UVECTOR that is not garbage-collected.) 
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7.24, STRING [1] 

“characters” 
Fepresents 4 STRING of ASCII text. A STRING containing the character * (double-quote) is 
represented by placing a \ (backslash) before the double-quote inside the STRING. A \ in a STRING 
is represented by two consecutive backslashes, 
7.2.5. BYTES 


fn {element-1 element-2 ... element-N) 


Fepresenits a siring of N uniformly-sized bytes of size n bits. 


7.2.6, TEMPLATE 
{ element-1 element-2 ... element-N } 


represents a TEMPLATE of W elen 
precede it. 


's when output, not input ~ when input, a # and a TYPE must 


13. Evaluation of Basic Structures [1] 


This section and the next two describe how EVAL treats the basic structured TYPEs lin the absence of 
any modifying EVALTYPE calls (section 6.4.4)} 


EVAL of a STRING (or BYTES or TEMPLATE] Is Just the original object. 


EVAL acts exactly the same with LISTs, VECTORS, and UVECTORs: it generates a new object with 
elements equal to EVAL of the elements it is given. This is one of the simplest means of 
‘constructing a structure. However, see section 7.7. 


74. Examples [1] 


(12 & 34>) 

a27) 

<SET FOO [5 <- 3> <TYPE *ABC*>p>s 
(5 -3 STRING] 

<2 .FOODS 
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3 

<TYPE <3 FOODS 

ATOM 

<SET BAR ![ ("meow") (.FOO)]>S 
1 ("meow") (L5 -3 STRING})!] 
LENGTH .BARDS 


2 

CREST <1 <2 .BARD?>S 

[-3 STRING] 

[<SUBSTRUC <1 <2 .BARD> 0 2>]S 
[C5 -31) 


<PUT .FOO 1 SNEAKY> 
[SNEAKY -3 STRING] 
BARS 

'[("meow") (LSNEAKY -3 STRING])!] 
SET FOO CREST <1 <1 .BARD> 2>95 
cont 

BARS. 

![(*meow") (SNEAKY -3 STRING])!} 


7.5. Generation of Rasic Structures 


Since LISTs. VECTORs, UVECTORs, and STRINGs [and BYTESes] are all generated in a fairly uniform 


manner, methods of generating them will be covered together here. [TEMPLATEs cannot be generated 
by the interpreter itself; see Lebling (1979).) 


7.5.1. Direct Representation [1] 


Since EVAL of a LIST, VECTOR, or UVECTOR is a new LIST, VECTOR, or UVECTOR with elements which 
are EVAL of the original clements. simply evaluating a representation of the object you want will 
generate it. (Care must be taken when representing a UVECTOR that all elements have the same 
TYPE.) This method of generation was exclusively used in the examples of section 7.4. Note that 
new STRINGS [and BYTESes] will not be generated in this manner, since the contents of a STRING are 
not interpreted or enpicd by EVAL. The same is true of any other TYPE whose TYPEPRIM happens to 


be LIST, VECTOR, or UVECTOR {again, assuming it neither has been EVALTYPEd nor has a built-in 
EVALTYPE, as do FORM and SEGMENT). 


7.5.2. QUOTE [1] 


QUOTE is an FSUBR of one argument which returns its argument unevaluated. READ and PRINT 
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understand the character * (single-quote) as an abbreviation for 2 call to QUOTE, the way period and 
comma work for LVAL and GVAL, Examples: 


«+ 1 28 
3 

GH 1 28 
«12> 


Any LIST, VECTOR, oF UVECTOR in a program that is constant and need not have its elements 
evaluated should be represented dircetly and inside a call to QUOTE. This technique prevents the 
structure from being eopied each time that portion of the program is executed. Examples hereafter 
will adhere to this dictum. (Note: one should never modify a QUOTEd object. The compiler will one 
day put it in read-only (pure) storage.) 


7.5.3. LIST, VECTOR, UVECTOR, and STRING (the SUBRs) [1) 


Each of the SURRs LIST, VECTOR, UVECTOR, and STRING takes any number of arguments and 
returns ait object of the appropriate TYPE whose elements are EVAL of its arguinents. ‘There are 
Hmitations on what the arguments to UVECTOR and STRING may EVAL to, due to the nature of the 
objects generated. See sections 7.6.5 and 7.6.6. 


LIST. VECTOR, and UVECTOR are generally used only in special cases, since Direct Representation 
usually produces exactly the same effect (in the absence of errors). and the intention is more 
apparent. (Note: if .L is a LIST, CLIST |.L> makes a copy of .L whereas (1.L) doesn't; see section 
7.7] STRING, on the other hand, produces effects very different from literal STRINGS. 


Examples: 


SLIST 1 ¢* 23> ABCDS 


(1 5 ABC) 
(1 <* 23> age)s 
aa (15 age) 
te STRING "A" <2 "QWERT*> CREST "ABC*> *hello*>s 
Bey “AWBCheT 10" 
aa "A + 23> (5)*S 
ae ‘A <* 23> (5)* 
tin 
754. ILIST, IVECTOR, TUVECTOR, and ISTRING [I] 
Each of the suBRs ILIST, IVECTOR, IUVECTOR, and ISTRING Cimplicit” or “iterated” whatever) 
Sreates aud returus au object of the obvious TYPE. The format of an application of any of them is 
al € Ithing number-ot-elements:fix expression:any > 
me TS2-754 Structured Objects 


58 ‘The MDL Programming Language 


where ithing is one of ILIST, IVECTOR, IUVECTOR, or ISTRING. An object of LENGTH number-of- 
elements is generated, whose elements are EVAL of expression, 


expression is optional. When it is not specified, ILIST, IVECTOR, and IUVECTOR return objects 
filled with objects of TYPE LOSE (PRIMTYPE WORD) as place holders, a TYPE which can be passed 
around and have its TYPE checked. but otherwise is an illegal argument. If expression is not 
specified in ISTRING, you get a STRING made up of *@ characters. 


When expression is supplied as an argument, it is re-EVALuated each time a new element is 
generated. (Actually, EVAL of expression is re-EVALuated, since all of these are SUBRs.) See the last 
example for how this argument may be used. 


[By the way, in a construct like CIUVECTOR 9 *.X), even if the LVAL of X evaluates to itself, so that 
the * could be omitted without changing the result, the compiler is much happier with the ' in 
place] 


IUVECTOR and ISTRING again have limitations on what expression may EVAL to; again, see sections 
7.6.5 and 7.6.6, 


Examples: 


<ILIST 5 68 
(6 6 6 6 6) 
<IVECTOR 298 
[#LOSE "000000000000" #LOSE *000000000000") 


<SET A 028 

0 

<IUVECTOR 9 '<SET A <* .A 12998 
11123456789!) 


7.5.5. FORM and IFORM 


Sometimes the need arises to create a FORM without EVALing it or making it the body of a FUNCTION. 
In such cases the SUDRs FORM and IFORM (“implicit form”) can be used (or QUOTE can be used). They 
are entirely analogous to LIST and ILIST. Example: 


DEFINE INC-FORM (A) 
<FORM SET .A <FORM + 1 <FORM LVAL .A>>25 
INC-FORM 
<INC-FORM FOODS 
<SET FOO <# 1 .FO0>> 
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7.6. Unique Properties of Primitive TYPES 


7.6.1. LIST (the PRIMTYPE) [1] 


‘An object of PRINTYPE LIST may be considered as a “pointer chain” (appendix 1). Any MDL object 
may be an clement of a PRIMTYPE LIST, It is easy to add and remove elements of a PRIMTYPE 
LIST, but the higher N is, the longer it takes to refer to the Nth element. The SUBRs which work 
only on objects of PRIMTYPE LIST are these: 


7.6.1.1. PUTREST (1) 


<PUTREST head:primtype-list tail:primtype-list> 
y that 
changes head sm that CREST head? is fail (actually <CHTYPE tail LISTD), then evaluates to head. Note 
that this actually changes heact it also changes anything having head as an element or a value. For 
example: 

tions 
<SET DOW [<SET ARF (B W)>]>$ 
(8 W)) 

<PUTREST .ARF '(3 4)>$ 
(B34) 

-BOWS 

(8 3 4)) 


PUTREST is probably most often used to splice lists together. For example, given that .L is of 
PRIMTYPE LIST, to leave the first m elements of it intact and take out the next n elements of it, 
<PUTREST CREST .L <- m 1>> CREST .L Com >>>. Specifically, 


<SET NUNS (12345678 9)>5 
(123456789) 

SPUTREST <REST .NUMS 3> <REST MUMS 7995 
(4.8 9) 

NUNS 

(123489) 

“ION. 
They 7.6.1.2. CONS 

<CONS new Hist> 


Ceonstruct") adds new to the Front of (ist, without copying Jist, and returns the resulting LIST. 
References to list are not affected. 


(Evaluating <cons .€ .LIST> is equivalent to evaluating (.£ !.LIST) (section 7,7) but is less 
Preferable 10 the compiler (Lebling. 1979).] 
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7.6.2. “Array” PRIMTYPES [1] 


VECTORs, UVECTORs, and STRINGs [and BYTESes and TEMPLATEs] may be considered as “arrays” 
(appendix 1). 11 is easy to refer to the Nth element irrespective of how large N is, and it is 
relatively difficult to add and delete elements. The following SUBRs can be used only with an object 
of PRIMTYPE VECTOR, UVECTOR, or STRING [or BYTES or TEMPLATE). (In this section array represents, 
‘an object of such a PRINTYPE.) 


7.6.2.1. BACK (1) 
<BACK array’ fiv> 
This is the opposite of REST. It evaluates to array. with fix elements put back onto its front end, 


and changed to its PRIMTYPE. fix is optional, 1 by default. If fix is greater than the number of 
elements which have been RESTed off, an error occurs. Example: 


<SET ZOP <REST ‘![1 2 3 4] 3995 
ary 

<BACK .ZOP 238, 

[2.3.41] 

<SET S CREST "Right is might.* 15)25 


<BACK .S 6S 
"might." 


7.6.2.2. TOP [1] 


<TOP array> 


“BACKs up all the way” -- that is, evaluates to array, with all the elements which have been RESTed 
off put back onto it, and changed to its PRIMTYPE. Example: 


<TOP .ZOP>$ 
1234) 


7.6.3. “Vector” PRIMTYPES 
7.6.3.1. GROW 
<GROW vu endsfix begstix> 
adds/removes elements to/from either or both ends of vu, and returns the entire (TOPped) resultant 


‘object. vu can be of PRIMTYPE VECTOR or UVECTOR. end specifies a lower bound for the number of 
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elements to be added to the end of vic beg specifies the same for the beginning. A negative fix 
specifies removal of elements, 


The number of elements added to each respective end is end or beg increased to an integral multiple 
of x, where is 32 for PRIMTYPE VECTOR and 64 for PRIMTYPE UVECTOR (1 produces 82 or 64; -1 
produces 0). The elements added will be LOSEs if vu is of PRITYPE VECTOR, and “empty” whatever- 
they-are’s if vu is of PRIMTYPE UVECTOR. An “empty” object of PRINTYPE WORD contains zero. An 
“empty” object of any other PRIMTYPE has zero in its “value word" (appendix 1) and is not safe to 
play with: it should be replaced via PUT. 


Note that, if elements are added to the beginning of vu, previously-existing references to vu will 
have 10 use TOP or BACK to get at the added elements. 


Caution: GROW is a very expensive operation; it requires a garbage collection (section 22.4) every 
time it is used. It should be reserved for very special circumstances, such as where the pattern of 
shared elensents is terribly importa 


Example: 


SSET A ILI DS 
1011] 


7.6.3.2. SORT 


This SUBR will sort PRIMTYPEs VECTOR, UVECTOR and TUPLE (section 9.2), It works most 
efficiently if the sort keys are of PRIMTYPE WORD, ATOM or STRING. However, the keys may be of 
any TYPE, and SORT will still work. SORT acts on fixed-length records which consist of one or more 
Contiguous elements in the structure being sorted. One element in the record is declared to be the 


fort Key. Also, any number of additional structures can be rearranged based on how the main 
structure is sorted. 


<SORT pred si I off 5212 5913 ... sN IND 
where: 
Pred is either (see chapter 8 for information about predicates: 


(1) TYPE FALSE, in which case the TYPEs of all the sort ‘keys must be the same; they must be of 
PRIMTYPE WORD, STRING or ATOM; and a radix-exchange sort is used; or 
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(2) something applicable to two sort keys which returns TYPE FALSE if the first is not bigger 
than the second, in which case a shell sort is used. For example ,G? sorts numbers in ascending 
order. ,L? in descending order. Note: if your pred is buggy, the SORT may never terminate. 


51... sN are the (PRIMTYPE) VECTORS, UVECTORS or TUPLEs being sorted, and s! contains the sort 
keys: 


11... iNare the corresponding lengths of sort records (optional, one by default); and 


off is the offset fro 


start of record to sort key (optional, zero by default). 
SORT returns the sorted s/ as a value. 


Note: the SUBR SORT calls the RSUBR (chapter 19) SORTX; if the RSUBR must be loaded, you may see 
some output from the loader on your terminal. 


Examples: 


SORT <> <SET A CIUVECTOR 500 '<RANDOMD>>>S 
1...) 


sorts a UVECTOR of random integers. 


<SET V [1 MONEY 2 SHOW 3 READY 4 GO)>S 
C...] 

<SORT <> V2 1S 

[4 GO 1 MONEY 3 READY 2 SHOW) 


SORT ,L? .V 298 

[4 GO 3 READY 2 SHOW 1 HONEY] 
VS 

(4 GO 3 READY 2 SHOW 1 MONEY) 


<SORT <> 1[2 1436587} 10 .WS 
"1234567813 

VS 

[GO 4 READY 3 SHOW 2 HONEY 1] 


The first sort was based om the ATOMs' PNAMEs, considering records to be two elements. The second 


one sorted based on the FIXes, The third interchanged pairs of elements of each of its structured 
arguments. 
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7.6.4. VECTOR (the PRIMTYPE) [1] 


Any MDL object may be an element of a PRIMTYPE VECTOR. A PRINTYPE VECTOR takes two words 
of storage more than an equivalent PRIMTYPE LIST, but takes it all in a contiguous chunk, whereas 
a PRIMTYPE LIST may be physically spread out in storage (appendix 1). There are no SUBRs or 
FSUBRs which operate only on PRIMTYPE VECTOR. 


7.6.5. UVECTOR (the PRIMTYPE) (1) 
‘The difference between PRIMTYPES UVECTOR and VECTOR is that every element of a PRIMTYPE 
UVECTOR must be of the same TYPE. A PRIMTYPE VECTOR takes approximately half the storage of 
3 PRIMTYPC VECTOR or PRIMTYPE LIST and, like a PRINTYPE VECTOR, takes it in a contiguous chunk 
{appendix 1) 

{Note: due to an implementation restriction (appendix I), PRIMTYPE STRINGS, BYTESes, LOCDs 
(chapter 12), aud objects on the control stack (chapter 22) may not be elements of PRINTYPE 
UVECTORs.) 


The “saine TYPE" restriction causes an equivalent restriction to apply to EVAL of the arguments to 
either oF the SUDRS UVECTOR or TUVECTOR. Note that attempting to say 


'(1 .Aty 


Will cause READ to produce au error, since youve attempting to put a FORM and a FIX into the same 
UVECTOR. On the other hand, 


<UVECTOR 1 .A> 


is legal, 
The following SUBRs work on PRIMTYPE UVECTORS alone. 


'd will EVAL to the appropriate UVECTOR without error if .A EVALs to a TYPE FIX. 


7.6.5.1. UTYPE [1} 
SUTYPE primt ype-uvector> 


Cuniform type") evaluates to the TYPE of every element in its argument. Example: 


SUTYPE "ITA B CDS 
ATOM 
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7.6.5.2. CHUTYPE [1} 
<CHUTYPE uv:primtype-uvector type) 


(change uniform type") changes the UTYPE of uv to tyee, simultaneously changing the TYPE of all 
elements of uv. and returns the new, changed, uv, This works only when the PRIMTYPE of the 
elements of uv can remain the same through the whole procedure. (Exception: a uv of UTYPE LOSE 
can be CIUTYPEd to any type (legal in a UVECTOR of course); the resulting elements are “empty”, as 
for GROW.) 


CHUTYPE actually changes uvi hence all references to that object will reflect the change. Thi 
quite different from CHTYPE. 


Examples: 


<SET LOST <IUVECTOR 2395 
IT#LOSF *000000000000" #LoSE on0000000000"1) 
SUTYPE .LOST>S 

LOSE 

<CHUTYPE .LOST FORM>S 

[> OH] 

-LOst 

1(<> C1] 

<CIWUTYPE .LOST LISTS 

OO 


7.6.6. STRING (the PRIMTYPE) and CHARACTER (1) 
The best mental 


CHARACTER is the 
the way, is 


wage of a PRIMTYPE STRING is a PRIMTYPE UVECTOR of CHARACTERS ~ where 
IDL TYPE for a single ASCH character. The representation of a CHARACTER, by. 


!\any-ASCII-character 


That is. the characters !\ (exclamation-point backslash) preceding single ASCII character 
represent the corresponding object of TYPE CHARACTER (PRIMTYPE WORD). (The characters !* 
(exclamation-point dauble-quote) preceding character are also acceptable for inputting a 
CHARACTER, for historical reasons) 


‘The SUBR ISTRING will produce an error if you give it an argument that produces a non- 
CHARACTER. STRING can take either CHARACTERS or STRINGS. 


There are no SUBRs which uniquely manipulate PRIMTYPE STRINGs, but some are particularly useful 
in connection with them: 
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7.6.61. ASCII [1] 


<ASCII fiv-or-character> 


If its argument is of TYPE FIX, ASCII evaluates to the CHARACTER with the T-bit ASCII code of its 
argument, Example: <ASCIT 65) evaluates to !\A. 


Af its argument is of TYPE CHARACTER, ASCII evaluates to the FIXed-point number which is its 
argument’s 7-bit ASCII code. Example: ASCII !\Z> evaluates to 90. 


(Actually, 2 FIX cam be CHTYPEd to a CHARACTER (or vice versa) directly, but ASCII checks in the 
former case that the FIX is within the perinissible range} 


7.6.6.2. PARSE (1) 


PARSE applies to its argument READ's algorithm for converting ASCII representations to MDL 
objects and returns the first object created. ‘The remainder of string, after the first object 
ree acted: is ignored. radix (optional, ten by default) is used for converting any FIXes that occur. 
{See also sections 15.7.2 and 17.1. for additional arguments.) 


7.6.6.3. LPARSE [1] 
LPARSE ("list parse’) is exactly like PARSE (above), except that it parses the entire string and returns a 
LIST of all objects created. If given an empty STRING or one containing only separators, LPARSE 
returns an empty LIST, whereas PARSE gets an error. 
7.6.6.4, UNPARSE {1} 

UNPARSE any radixcix> 
UNPARSE applies to its argument PRINT algorithm for converting MDL objects to ASCIT 


Trecchtations and returns a STRING which contains the CHARACTERS PRINT would have typed out. 
(However, this STRING will not contain any of the gratuitous carriage-returns PRINT adds to 


7.6.7. BYTES 


A CPRINTYPE) BYTES is a string of uniformly-sized bytes. The bytes can be any size between 1 and 
36 bits inclusive, A BYTES is similar in some ways to a UVECTOR of FIXes and in some ways to a 
STRING of non-seven-bit bytes. The elements of a BYTES are always of TYPE FIX. 
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‘The SUBRs BYTES and IBYTES are similar to STRING and ISTRING, respectively, except that each 

the former takes a first argument giving the size of the bytes in the generated BYTES. BYTES tak 
one required argument which is a FIX specifying 2 byte size and any number of PRINTYPE WOR 
It returns an object of TYPE BYTES with that byte size containing the objects as elements. Thi 

‘objects will be ANDBed with the appropriate mask of I-bits to fit in the byte size. IBYTES takes t 

required FIXes and one optional argument. It uses the first FIX to specify the byte size and 
second 10 specify the number of elements, The third argument is repeatedly evaluated to genera 
FIXes that become elements of the BYTES (if it is omitted, bytes filled with zeros are generated). T| 
analog to UTYPE is BYTE-SIZE. Examples: 


<BYTES 3 C+ 2.22.9 -1D8 


43417) 
<SET A ODS 
C) 


GIBYTES 3.9 '<SET A <* .A 19998 
43 (123456701) 
<IBYTES 3 4S 


#3 (0000) 
<BYTE-SIZE <BYTES 1>9$ 
1 


7.6.8. TEMPLATE 


A TEMPLATE is similar to a PL/I “Mructure” of one level: the elements are packed together and 
reduced in size to save storage space, while au auxiliary internal data structure describes the 
packing format and the elements’ reat TYPEs (appendix |). The interpreter itself is not able to create 
objects of PRIMIYPE TEMPLATE (Lebling. 1979: however, it can apply the standard built-in 
Subroutines to them, with the same effects as with other “arrays”. 


7.7. SEGNENTs (1) 


Objects of TYPE SEGMENT (whose TYPEPRIM is LIST) look very much like FORMS. SEGMENTS, however, 
undergo a non-standard evaluation designed to ease the construction of structured objects from 
elements of other structured objects, 


7.7.1, Representation [1] 
‘The representation af an object of TYPE SEGHENT is the following: 


1 tune arg-l arg-2 se. argeN 1D 
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where the second | (exclamation-point) is optional, and func and arg-1 through arg-N are any legal 
constituents of a FORM (that is, anything) ‘The pointed brackets can be implicit, as in the period 
and coma notation for LVAL and GVAL. 


All of the following are SEGHENTs: 


1€3 .FOO> 1.FOO 1, FOO 


7.7.2. Evaluation (1) 
‘A SEGHENT is evaluated in exactly the same manner as a FORM, with the following three exceptions: 


(1) It had better be done inside an EVAL of a structure; otherwise an error occurs. (See special 
case of FORMS in section 7.7.5.) 


(2) It had better EVAL to a structured object; otherwise an error oceurs. 
(3) What actually gets inserted into the structure being built are the elements of the structure 
returned by the FORM-like evaluation. 


7.7.3. Examples [1] 


<SET ZOP '![2 3 4)>8 
'(2 3 41] 

“SET ARF (B 3 4)>5 

(8 3 4) 

(ARF 1.20P)$ 

((8 34) 234) 
'E1.2OP I<REST .ARFO1 JS 
[23.43 41) 


<SET S "STRUNG.">S 
"STRUNG." 

(1.8)8 

(INS INT NVR WU WW IG HQ.) 
SET NIL ()>S 

Q 


C!.nIUJs 
13) 
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7.7.4. Note on Efficiency {1) 


Most of the cases in which it is possible to use SEGHENTs require EVAL to generate an entire n 
object. Naturally. this uses up both storage and time. However, there is one case which it 
Possible to handle without copying, and EVAL uses it. When the structure being built is a PRINTY! 
LIST, and the segment value of a PRIMTYPE LIST is the last (rightmost) element being concatenat 
that last PRIMTYPE LIST is not copied. This case is similar to CONS and is the principle reason w 
PRINTYPE LISTs have their structures more easily varied than PRINTYPE VECTOR or UVECTOR. 


Examples: 


sARFS 
(B34) 


‘This does not copy ARF: 


(1 2 1 .ARE)S: 
(12834) 
‘These do: 

(1 1 .ARF 2) s*not last elements 
(§8342) 

(1 2 + .ARF) ‘not PRIMTYPE LIST*S 
(12834) 

(1 2 !.ARF ECREST '(1)>) ;*sti11 not Tast element*s 
(12834) 


Note the following, which occurs because copying does not take place: 
<SET DOG (A !.ARF)>S 


(AB 34) 

<PUT .ARF 1 "BOWOW">$ 
("BOWOW" 3 4) 

-DOGS 


{A *BOWOW™ 3 4) 
<PUT .DOG 3 "WOOF*>S 


Since ARF was not copied. it was literally part of DOS. Hence, when an element of ARF was changed, 
DOG was changed. Similarly. when an element of DOG which ARF shared was changed, ARF was 
changed too. 


i 
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17.5. SEGMENTS inn FORMS (1] 


When a SEGHCNT appears as an clement of a FORM, the effect is approximately the same as if the 
elements of EVAL of tlhe SEGHENT were in the FORM. Example: 


Pt 
ed, CSET A ‘HTL 2.3 4)98 
hy (12.3 41) 

c+ NBS 

15 


Note: the clements of the structure segment-evaluated in a FORM are not re-evaluated if the thing 
being applicd is a SUNR. Thus if .A were (1 2 ¢+ 34> 5), the above example would produce an 
error: you can't add up FORMS. 


You could perform the same summation of 5 and the elements of A by using 


EVAL <CHIYPE (+ 


A 5) FORKD> 


(Note that EVAL must be explicitly called as a SUBR; if it were not so called, you would just get the 
FORM <+ 1 2.3.4 5) ~ not its "value™) However, the latter is more expensive both in time and in 
storage: when you use the SEGMENT directly in the FORM, a new FORM is, in fact, not generated as it is 
in the latter case. (The elements are put on “the control stack” with the other arguments.) 


7.8. Self-referencing Structures 


It is possible for a structured object to “contain” itself, either as a subset or as an element, as an 
element of a structured elen te. Such an object cannot be PRINTed, because recursion begins 
and never terminates, Warning: if you try the examples in this section with a live MDL, be sure 
you know how to use “S (section 1.2) to save PRINT from endless agony. (Certain constructs with 
ATOMs can give PRINT similar trouble: see chapters 12 and 15.) 


7.8.1. Self-subset 
<PUTREST head:primt ype-list tail:primtype-list> 


IF head is a subset of tai, that is, if CREST fail fix) is the same object as <REST head 0> for some fix, 
then both head and tail will be “circular” (and thus self-referencing) after the PUTREST. Example: 


ted, <SET WALTZ (1 2 3)>8 

was Q 23) 

<PUTREST CREST .WALTZ 2) .WALTZ>S 
(3123123223122... 
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7.8.2. Self-ele 
<PUT sl:structured fix s2:structured> 


If 51 is the same object as 52, then it will “contain” itself (and thus be self-referencing) after the 
PUT. Examples: 


<SET S <LIST 1 2 3>> 
(123) 

<PUT .S 3 .S>S 
arazaza2.. 
<SET U ITIEJDS 


jor VECTOR"S 


alan} | 
<PUT .U 1 .U>S 
alalalal alae 


Test your reaction time or your terminal's bracket-maker. Amaze your friends. | 
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| Chapter 8. Truth 
81. Teuth Values {1 
MDL represents “false” with an object of a particular TYPE: TYPE FALSE (unsurprisingly) TYPE 
FALSE Is siructuredi Its PRIMTYPE Is LIST. Thus you can give reasons or excuses by making thera 
Glements of a FALSE. (Again, EVALIng # FALSE neliher copies It nor EVALS Its elements, 30 it is not 
J ncessryto QUOTE « FALSE appearing in program) Objects of WFE FALSE ae represented n= 
| HFALSE list-of-ite-elements 


The empty FORM evaluates to 


ie empty FALSE 


| os 
: 


FALSE () 


82. Predicates [1] 


There are numerous MDL F/SUBRs which can return a FALSE or a true. See appendix 2 to find 
them all, Most return cither #FALSE () or the ATOM with PNAME T. (The latter is for historical 
Feasons, namely Lisp (Moon, 1974).) Some predicates which are meaningful now are described next. 


8.2.1. Arithmetic [1] 


<0? fix-or-foat> 


evaluates to T 


argu is identically equal to 0 o 0.0. 
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<1? fix-or-float> 


evaluates to T only if its argume: 


is identically equal to 1 or 1.0. 


<6? pifiv-or-float mfix-or-Hoat> 


evaluates to T only if » is algebraically greater than m Le? is the Boolean complement of G7; that 
is, It is T only if is not algebraically greater than m. 


<L? nifiv-or-float_mifiv-or-Hoat> 


evaluates to T only if 7 is algebraically less than m. G=7 is the Boolean complement of L?. 


8.2.2. Equality and Membership (1] 


<2=7 eliany e2any> 


evaluates to T oni 


if 1 is the same object as e2 (appendix 1), Two objects that look the same 
when PRINTed may not be ==7. Two FIxes of the same “value” are “the same object; so are two 
FLOATs of exactly the same “value”. Empty objects of PRIMTYPE LIST (and no other structured 
PRIMTYPE) are ==? if their TYPEs are the same. Example: 


7 <SET X “RANDOM STRING*> <TOP <REST .x 6>>>5 


2 .X "RANDOM STRING*>S 
*FALSE () 


7 is the Boolean complement of 


< 


? elzany e2:any> 


evaluates to T if © e2 have the same TYPE 
same”, their printed representations are the same. 


dare structurally equal ~ that is, they “look the 
7 is much slower than ==?. =? should be used 


only when its characteristics are necessary: they are not in any comparisons of unstructured objects. 
? and =? always return the same value for FIXes, FLOATS, ATOMs, ete. (Mnemonically, ==? tests for 
“more equality” than =7; in fact, it tests for actual physical identity.) 
Example, illustrating non-copying of a SEGMENT in Direct Representation of a LIST: 
A '(1.2.3)98 
(123) 
A C.ADDS 


7 A SET B CLIST 1.A998 
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FALSE () 
A .B>S 


7 is the Roolcan complement of 


<MEMBER object:any structured? 
runs down structured from First to last element, comparing each element of structured with object 
If i Finds an clement of structured which is =? to object, it returns <REST structured i> (which is of 
TYPE <PRINTYPC structured>), where the (isI}th element of structured is =? to object. That is, the 
first clemont of what it returns is the first element of structured that is =7 to object. 


If no ele! 


WU OF structured is =? to object. MEMBER retur 


#FALSE () 


The search is more efficient if structured is of PRIMTYPE VECTOR (or UVECTOR, if possible) than if it 
is of PRIMTYPE LIST. As usual, if structured is constant, it should be QUOTES. 


If object and structured are of PRINTYPE STRING [or BYTES}. MEMBER does a subst 
Example: 


MEMBER "PART® *: 
"PARTS: 


UM OF PARTS™>S. 


<MENQ objec 
comparison test is 


ember quick") is exactly the same as MEMBER, except that the 


<STRCONP £1 52> 


arison”) ca 


Cstring co: be given either two STRINGs or two ATOMS as arguments. In the latter case 
the PNANCs arc used. It actually isn’t a predic: urn three possible values: 0 if 2! is 
=? to s2 1 if sf sorts alphabetically after 2 and -1 if sf sorts alphabetically before 2 


“Alphabetically” means. in this case, according to the numeric order of ASCII, with the standard 
alphabetizing rules 


fe. since it ean re 


TA predicate suitable for an ascending SORT (which see) is <G? <STRCOMP .ARGI -ARG2> 0>.) 


8.2.3. Boolean Operators [1] 
<NOT eifalse-or-any> 


evaluates to T only if © evaluates to 2 FALSE, and to #FALSE () otherwise. 


<AND ef ©2 ... oN? 


822-823 Truth 


a The MDL Programming Language 


AND is an FSUBR. Tt evaluates its arguments from first to last as they appear in the FORM. As soon 
as one of them evaluates to a FALSE, it returns that FALSE, ignoring any remaining arguments. If 
None of them evaluate to FALSE, it returns EVAL of its last argument. <AND> returns T. AND? is the 
SUBR equivalent to AND, that is, all its arguments are evaluated before any of them is tested. 


OR ef e2 ... eN> 


OR is an FSUOR. It evaluates its arguments from First to last as they appear in the FORM. As soon 
as one of them evaluates to a non-FALSE, OR returns that non-FALSE value, ignoring any remaining 
arguments. If this never occurs, it returns the last FALSE it saw. <ORD returns @FALSE (). OR? is 
the SUGR equivalent to OR 


8.2.4. Object Properties [1 
<TYPE? any type-t type-n> 


/ only if <==? fype-i CTYPE any>> is true. It is faster and gives more information 


than ORing tests for cach TYPE. If the test fails for all type-is, TYPE? returns #FALSE () 


APPLICABLE? ©> 


evaluates to T only if @ is of a TYPE that can legally be applied to arguments in a FORM, that is, be 
(EVAL of) the First clement of a FORM being evaluated (appendix 3). 


<MONAD? e> 


evaluates to #FALSE () only if NTH and REST (with non-zero second argument) can be performed on 


its argument without error. An unstructured or empty structured object will cause MONAD? to return. 
a 


<STRUCTURED? > 


evaluates to T only if © is a structured object. It is not the inverse of MONAD?, since each returns T 
if its argument is an empty structure. 


EMPTY? structured> 
evaluates to T only if its argument, which must be a structured object, has no elements. 
LENGTH? structured fix> 
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~~ 
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This SUBR was invented to use on lists, because MDL can determine their lengths only by stepping 
along the fist, counting the elements. If a program needs to know only how the length compares 
with a given number, LENGTH? will tell without necessarily stepping all the way to the end of the 
fist, in contrast to LENGTH 


Uf structured is a circular PRIMTYPE LIST, LENGTH? will return a value, whereas LENGTH will execute 
forever. To sce if you can do <REST structured <+ 1 fix>> without error, do the test <NOT <LENGTH? 
structured fix>>-} 


8.3. COND 


oT 


The MDL Subrout is most used for varying evaluation depending on a truth value is the 
FSUBR COND (“conditional”). A call to COND has this formai 


<COND chause-Iaist clause-Néist> 
where WV is at least one. 


COND always returns the re: 
order of evaluations perfor 


Jast evaluation it perforn 


The following rules determine the 


(1) Evaluate the first element of each clause (from first to last) until either 2 non-FALSE object 
results or the clauses are exhausted. 


mediately evaluate the remaining elements (if any) 
y iz 


(2) If a non-FALSE object is found in (1), 
ining clauses. 


OF that cla 


¢ and ignore any rem: 


In other words, COND goes walking down its clauses, EVALing the first element of each clause, looking 
For a non-FALSE result. As soon as it finds 2 non-FALSE, it forgets about all the other clauses and 

i the other elements of the current clause and returns the last thing it evaluates. 
If it can‘t find a non-FALSE, it returns the last FALSE it saw. 


83.1. Examples (1) 


<SET F *(1)>8 
a) 

<COND (EMPTY? .F> EMP) (<1? LENGTH .F>> ONE)>S 
ONE 

<SET F ()>S 

oO 

<COND (<EMPTY? .F> EMP) (<1? <LENGTH .F>> ONE)>S 
EMP 
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<SET F "(1 23995 


a23) 
<COND (<EMPTY? .F> EMP) (<17 CLENGTH .F>> ONE)>S 
FALSE () 
<COND (<LENGTH? .F 2> SMALL) (BIG)>3 i} 
BIG 
<OEFINE FACT (¥) stthe standard recursive factorial* 
<COND (<0? .W> 1) 
(ELSE <* LM <FACT <- .M 1D9>)298 
FACT 
<FACT 533 
120 


8.4.1. AND and OR as Short CONDs 


Since AND and OR are FSUBRs, they can be used as miniature CONDs. A construct of the form 


<AND pre-condition action(s)> 


<OR pre-exclusions action(s)> 


will allow action(e) to be evaluated only if all the pre-conditions are true or only if all the pre- 
exclusions are false, respectively. By nesting and using both AND and OR, fairly powerful constructs 
can be made. OF course. if action(s) are more than one thing, you must be careful that none but the 
last returns false or true, respectively. Watch out especially for TERPRI (chapter 11). Examples: 


SAND ASSIGNED? FLAG? .FLAG <FCN .ARE>> 


applies FCN only if someone else has SET FLAG to true. (ASSIGNED? Is true if its argument ATOM has 
an LVAL.) No error can occur in the testing of FLAG because of the order 


AND <SET C <OPEN "READ* "A FILE*>> <LOAD .C> <CLOSE .C>> 


effectively FLOADs the file (chapter 11) without the possibility of getting an error if the file cannot 
be opened. 
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8.4.2. 


bedded Unconditionals 


One or ihe disadvantages of COND is that there is no straightforward way to do things 
unconditionally in between tests. One way around this problem is to insert a dummy clause that 
never succeeds, because its only LIST element is an AND that returns a FALSE for the test. Example: 


€COND (<0? .N> <FO ND) 
(61? ND <FL ND) 
(SAND <SET N C* 2 <FIX </ .W 29999 


="Round .N down to even number.* 
<>) 

(SLENGTH? .VEC .W> *[9) 

(T REST .VEC <* 1 .N39)> 


A variation is to make the last AND argument into the test for the COND clause. (That is, the third 
and fourth clauses in the above example can be combined.) Of course, you must be careful that no 
orler AND argument cvaluates to a FALSE; most Subroutines do not return a FALSE without a very 


good reason for it. (A notable exception is TERPRI (which see),) Even safer is to use PROG (section 
10.1) instead of AND 


Another variation is to 


jerease the nesting with a new COND after the unconditional part. 
ed docs not make the code appear to a human reader as though it does someth! 
lly does. The above example could be done this way: 


At least 
1 other 


this mer 


<COND (<0? .N> <FO _N>) 
(<1? ND <F1 LND) 
cr 
<SET N C* 2 <FIX </ LN 2>9>> 
<COND (<LENGTH? .VEC .N> ‘[3) 
(1 SREST VEC <+ 1 .N>>)>)> 
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Chapter 9. Functions 


This chapter could he named “fun and 
more complicated thy 
1 the various toh 


nes with argument LISTs". Its purpose is to explain the 
done with FUNCTIONS, and this involves, basically, explaining 
pear in the argument LIST of a FUNCTION. Topics are covered 
n what is approximately an order of increasing complexity. This order has little to do with the 
order in which tokens ean act ent LIST, so what an argument LIST “looks 
like" overall gets rather lost in the shuffle. To alleviate this problem, section 9.9 is a summary of 
everything that ¢ ment LIST, in the correct order. If you find yourself getting 
lost, pi 


gs whieh can t 


ns which ean 


lly appear in an argu: 


go into an arg 


ase refer to that summary 


9.1. "OPTIONAL" [1] 


MDL provides very convenient means for allowing optional arguments, The STRING "OPTIONAL* 
(or "OPT" -- they're totally equivalent) in the argument LIST allows the specification of optional 
arguments with values to be assigned by default. The syntax of the "OPTIONAL part of the 
argument LIST is as Follow: 


MOPTIONAL™ att af-2 ... aN 


First, there is the STRING “OPTIONAL. Then there is any number of either ATOHs or two-element 
LISTs, intermixed. one per optional argument. The first element of each two-element LIST must be 
1 ATOM; this is the dummy variable. ‘The second element is an arbitrary MDL expression. If there 
are required arguments, they must come before the "OPTIONAL" 


When EVAL is binding the variables of a FUNCTION and sees "OPTIONAL", the following happens: 


If ane 
bound to the corresponding 


plicit argument was given in the position of an optional one, the explicit argument is 
on. 


xplicit argument and the ATOM stands alone, that is, it is not the f ment of 
a two-eloment LIST, that ATOM becomes “bound”, but no local value is assigned to it [see below}. 
A local value can be assigned to it by using SET 
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If there is no explicit argument and the ATOM is the first element of a two-element LIST, the 
MDL expression in the LIST with the ATOM is evaluated and bound to the ATOM. 


[Until an ATOM is assigned. any attempt to reference its LVAL will produce an error. The predicate 
SUBRs BOUND? and ASSIGNED? can be used to check for such situations. BOUND? returns T if its 
argument is currently bound via an argument LIST or has ever been SET while not bound via an 
argument LIST. The latter kind of binding is called “top-level binding”, because it is done outside 
all active Mt-LIST binding. ASSIGNED? will return #FALSE () if its argument is either 
unassigned of unbound. By the way, there are two predicates for global values similar to BOUND? 
and ASSIGNED?, namely GBOUND? and GASSIGNEO?. Each returns T only if its argument, which (as 
in BOUND? and ASSIGNED?) must be an ATOM, has a global value “slot” (chapter 22) or a global value, 
respectively.} 


Example: 


DEFINE INCL (A “OPTIONAL™ (N 1) <SET .A <# ..A .ND39S 


TNer 
<SET B ODS 
0 

<INCL B>S 


1 
<INCL 8 598 
6 


Here we defined anather (not quite working) increment FUNCTION. It now takes an optional 
argument specifying how much to increment the ATOM it is given. If not given, the increment is 1. 
Now. 1 is a pretty simple MDL expression: there is no reason why the optional argument cannot be 
complicated -- for example. a call to 2 FUNCTION which reads a file on an I/O device. 


9.2. TUPLEs 


9.2.1. "TUPLE" and TUPLE (the TYPE) [1] 


There are also times when you want to be able to have an arbitrary number of arguments. You can 
always do this hy defining the FUNCTION as having a structure as its argument, with the arbitrary 

mber of arguments as elements of the structure. This can, however, lead to inelegant-looking 
FORMs and extra garbage to be collected. The STRING "TUPLE" appearing in the argument LIST 
allows you fo avoid that. It must follow explicit and optional duminy arguments (if there are any 
of either) and must be followed by an ATOM. 


tof “TUPLE* appearing in an argum 


‘ST is the following: any arguments left in the 
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FORM, after satisry 


i explicit and optional arguments, are EVALed and made sequential elements of 
an object of TYPC and PRIMTYPE TUPLE. The TUPLE is then bound to the ATOM following “TUPLE* 
in the argument LIST. If there were no arguments left by the time the *TUPLE" was reached, an 
empty TUPLE is bound to the ATOM. 


Aun object of TYPE TUPLE is exactly the same as a VECTOR except that a TUPLE is 
garbage-collected storage. It is instead held with 


jor held in 
ATOH bindings in a control stack. This does not 


affect manipulation of the TUPLE within the function generating it or any function called within 
that one: it can be treated just like a VECTOR. Note, however, that a TUPLE ceases to exist when the 
function which generated it returns. Returning a TUPLE as a value is a good way to generate an 
error. (A 


opy of a TUPLE can easily be generated by segiment-evalui 
that copy can be returned.) The predicate LEGAL? returns #FALSE () if it is given a TUPLE 


Senerated by an APPLICABLE object which has already returned, and Tif it is given a TUPLE which is 
SUE good’ 


ng the TUPLE into somethinj 


Example: 


<DEFINE NTHARG (N "TUPLE® T) 
:"Get atl but first argument into T.* 
71 .N> 1) 
"If Nis 1, return Ist arg, t.0., .N, 
i.e. 1. Note that <17 .N> would be 
true even if .N were 1.0." 
(SL? CLENGTH .T> <SET N <= .W 19> 
FALSE (*DUMHY*)) 
s"Check to see if there is an Nth arg, 
and make N a good index into T while 
you're at it. 
If there isn't an Nth arg, complain.” 
(ELSE <NTH LT .ND>)>> 


<COND (< 


NTHARG, above. takes any number of arguments. Its first argument must be of TYPE FIX. It 
ceturns EVAL of its Nth argument, if it has an Nth argument. If it doesn't, it returns #FALSE 
Copgiy™)- (The FLSE is not absolutely necessary in the Jast clause. If the Nth argument is a 
FALSE, the COND will return that FALSE.) Exercise for the readers NTHARG will generate an error if 
its first argument is not FIX. Where and why? (How about <NTHARG 1.5 2 3> 2)" Fix it, 


9.2.2. TUPLE (the SUBR) and ITUPLE 


These SUMRs are the sate as VECTOR and IVECTOR, except that they build TUPLEs (that is, vectors on 
the control stack). They can be used only at top level in an OPTIONAL® list or "AUX" list (eee 
below). The clear advantage of TUPLE and ITUPLE Cimplicit tuple”) is In storage-management 
efficiency. They produce no garbage. since they are flushed automatically upon function reteen 
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Examples: 
DEFINE F (A B "AUX" (C CITUPLE 10 3>)) ...> 
creates a 10-clement TUPLE and SETs C to it. 
DEFINE H ("OPTIONAL (A <ITUPLE 10 *<I>>) 
“AUX (B <TUPLE 1.A 1 2 3>)) 


‘These are valid w 
because it is 1 


s of TUPLE and ITUPLE. However, the following is i 
t called at top level of the "AUX": 


a valid use of TUPLE, 


<DEFINE NO (AB "AUX" (C CREST CTUPLE 1.A9>)) ...> 


However. the desired effect could be achieved by 


<DEFINE OK (A B "AUX" (D CTUPLE !.A>) (C <REST .0>)) ...> 
9.3. "AUX" [1] 

"AUX" (or “EXTRA -- they're totally equivalent) are STRINGS which, placed in an argument LIST, 
serve to dynamically allocate temporary variables for the use of a Functio: 

“AUX" must appear in the arguinent LIST after any information about explicit arguments. It is 
Followed by ATOMs or two-element LISTs as if it were "OPTIONAL". ATOMs in the two-element LISTs 
are bound to EVAL of the second element in the LIST. Atoms not in such LISTs are initially 
unassigned: they are explicitly given “no” LVAl 


Ail binding specified in an argument LIST is done sequentially from first to last, so initialization 
expressions for "AUX" (or *OPTIONAL*) can refer to objects which have just been bound. For 
example. this works: 


<DEFINE AUXEX (*TUPLE T 
"AUX" (A CLENGTH .T>) (B <* 2 .A>)) 


{C.A .82s 
AUXEX 

<AUXEX 1 2 "FOO">S 
113 6! 
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9.4, QUOTES ar 


Tf an ATOM in an arg 
surround 


ent LIST which is to be bound to 2 required or optional argument is 
J by a call (o QUOTE, that ATOM is bound to the unevaluated argument. Example: 


DEFINE O2 (A 'B) (.A .B)>5 


12> &* 1 2098 


It is not often appropriate for a function to take its arguments unevaluated, because such a practice 
makes it less nodular and harder to maintain: it and the programs that call it tend to need to know 
more abi and a change in its argument structure would tend to require more changes 
at call it, And, since few funetions, in practice. do take unevaluated arguments, 
assume that Ho functions do (except FSUBRs of course), and confusion inevitably 


in the pro 
users tend 
results, 


9.5. “AR 


The indicator "ARGS" cai 
However, "ARGS" © 
arguments, 


appear in an argument LIST with pre 
ses the ATOM followin 


me syntax as “TUPLE 
ng unevaluated 


ARGS" does nor cause any co to take place. It sim 


ives you 
REST applicationsfoem fix> 


with an appropriate fe. The TYPE change to LIST is a result of the REST- Since the LIST shares 
all its elements with the original FORK, PUTs into the LIST will change the calling program, 
however dangerous that may be. 


Examples: 


<DEFINE QIT (N “ARGS™ L) <.M .L>>S 
grr 

<OIT 2 <+ 34> <LENGTH ,QALL> FOODS 
<LENGTH ,QALL> 


<DEFINE FUNCTI (*ARGS" ARGL~AND-BODY) 
<CHTYPE .ARGL-ANO-BODY FUNCTION>>S 

FuncTl 

<FUNCTI (AB) <* -A .B>>S 

FUNCTION ((A B) <* -A .B>) 
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The last example is a perfectly valid equivalent of the FSUBR FUNCTION. 


9.6. "CALL* 


The indicator “CALL is an ultimate “ARGS". If it appears in an argument LIST, it must be 
followed by an ATOM and must be the only thing used to gather arguments. "CALL" causes the ATOM. 
Which follows it 10 become bound to the actual FORH that is being evaluated — that Is, you get the 
func ‘CALL* binds to the FORM itself, and not a copy, PUTs into that FORM will 
change the calling cove. 


nm call” itself. Since 


CALL" exists ax a Cateh-22 for argument manipulation. If you can't do it with "CALL", it can't be 
done. 


9.7. EVAL and “BiNp* 


Obtaining unevaiuated arguments, for example, via QUOTE and "ARGS", very often implies that you 
wish to evaluate them at some point. You can do this by explicitly calling EVAL, which is a SUBR. 
Example: 


<EVAL .F>S 


EVAL can take a second argument, of TYPE ERVIRONHENT (or others 
ENVIRONMENT consists basically of a state of ATOM bindings: 
Now. since binding changes the ENVIRON 


see section 20.8). An 
t is the “world” mentioned in chapter 5. 
ENT, if you wish to use EVAL within a FUNCTION, you 


Probably want to gct hold of the environment which existed before that FUNCTION'S binding took 
place. indicator "BIND", which must, if it is used, be the first thing in an argument LIST, 

, ation. It binds the ATOM immediately following it to the ENVIRONMENT existing 
“at call time” - that is, just before any binding is done for its FUNCTION. Example: 

<SET A 038 

° 

<DEFINE WRONG (+B "AUX" (A 1)) EVAL .B>>5 

WRONG 


<WRONG .A>s 
1 

DEFINE RIGHT (*BIND™ E *B *AUX" (A 1)) EVAL .8 .E>9S 
RIGHT 
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<RIGHT .ADS. 
° 


9.7.1, Local Values versus ENVIRONMENTS 


SET. LVAL, VALUE, BOUND?, ASSIGHED?, and UNASSIGH all take a final optional argument which 
has not previonsly been ied: an ENVIRONMENT (or other TYPEs, see section 20.8). If this 

cnt is given. the SET or LVAL is done in the ENVIRONMENT specified. LVAL cannot be 
abbreviated by . (period) if it is given an explicit second argument, 


This feature is just what is needed to cure the INC bug mentioned in chapter 5. A “correct” INC can 
ed as follows: 


<DEFINE INC (*BIND" OUTER ATH) 
<SET -ATH <+ 1 CLVAL .ATH .OUTERD> .OUTERD> 


9.8. ACTIVATION, *» 


ACT", AGAIN, and RETURN {1 


EVAL after the argument LIST has been taken care of, normally consists of 
EVAL the body in the order given, and returning the value of the last 
thing EVAled. If you want to vary this sequence, you need to know, at least, where the FUNCTION 
begins. Actually. EVAL normally hasn't the foggiest idea of where its current FUNCTION began. 
“Where'd I start” information is bundled up with a TYPE called ACTIVATION. In “normal” FUNCTION 
EVALuation. ACTIVATIONs are not gencrated: one can be generated, and bound to an ATOM, in either 
Of the two following ways: 


ation of a FUN 
ating each of the objects 


a P 
be boi 


an ATOM immediately before the argument LIST. The ACTIVATION of the Function will 
\d to that ATOM 


(2) As the last thing in the argument LIST, insert ei 
Follow it with an ATOM. The ATOM will be bound to 


fer of the STRINGs *NAME* or “ACT™ and 
¢ ACTIVATION of the Function. 


In this document “Function” (capitalized) will designate anything that can generate an ACTIVATION; 
besides TYPE FUNCTION, this class includes the FSUBRs PROG, BIND, and REPEAT, yet to be 
discussed, 


Each ACTIVATION refers explicitly to a particular evaluation of a Function. For example, if a 
recursive FUNCTION generates an ACTIVATION, 2 new ACTIVATION referring explicitly to each 
Fecursion step is gencrated on every recursion. 


Like TUPLEs, ACTIVA 


a control stack. Unlike TUPLEs, there is no way to get a copy 
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of an ACTIVATION which can usefully be returned as a value. (This is a consequence of the fact that 
ACTIVATIONs refer to evaluations; when the evaluation is finished, the ACTIVATION no longer exists.) 
ACTIVATIONs can be tested, like TUPLEs, by LEGAL? for legality. They are used by the SUBRs AGAIN 
and RETURN. 


AGAIN can take one argument: an ACTIVATION. It means “start doing this again”, where “this” i 
specified by the ACTIVATION. Specifically, AGAIN causes EVAL to return to where it started working 
on the body of the Function in the evaluation specified by the ACTIVATION. The evaluation is not 
redone co lar, no re-binding (of arguments, *AUX* variables, ete.) is done. 


pletely: in p: 


RETURN can take two argu 


ents: an arbitrary expression and an ACTIVATION, in that order. It 
causes the Function evaluation whose ACTIVATION it is given to terminate and return EVAL of 
RETURN's first arguinent. That is, RETURN means “quit doing this and return that”, where “this” is the 
ACTIVATION -- its second argument ~ and “that” is the expression ~ its first argument. Examplk 


DEFINE MY+ ("TUPLE T "AUX" (M0) "NAME* NH) 
<COND (<EMPTY? .T> <RETURN .M .NM>)> 
<SET M <# .H C1 .TD9> 
<SET T <REST .1>> 
<AGAIN: -WHD>S, 

y+ 

<HY* 1 3 <LENGTH *FOO">>S 

7 

<Myeos. 

° 


Note: suppose an ACTIVATION of onc Function (call it F1) is passed to another Function (call it F2) — 
for example. via an application of F2 within Fl with Fi's ACTIVATION as am argument. If F2 
RETURNs to Fis ACTIVATION, F2 and F1 terminate immediately. and F1 returns the RETURN's first 
argument. This tcchnique is suitable for error exits. AGAIN can clearly pull a similar trick. In the 
following example. F1 computes the sum of F2 applied to each of its arguments; F2 computes the 
Product of the clements of its structured argument, but it aborts if it finds an clement that is not a 


<DEFINE FI ACT ("TUPLE T "AUX" (T1 .1)) 
<COND (<NOT <EMPTY? .T1>> 
<PUT .T1 1 <F2 <1 .T1> .ACT>> 
<SET Tl <REST .T1>> 
<AGAIN .ACT>) 
(ELSE <# 1.7D)298, 
FL 
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<DEFINE F2 (S A “AUX* (SI -S)) 
REPEAT MY-ACT ((PRD 1)) 
<COND (<NOT <EMPTY? .S1>> 

<COND (<NOT CTYPE? <1 .S1> FIX FLOAT>> 
<RETURN #FALSE (*NON-HUMBER™) -A>) 
(ELSE <SET PRD <* .PRD <1 .S1>>>)> 

<SET SI <REST -S1>>) 

(ELSE RETURN .PRD>)>>>5 


F2 


<FL "(1 2) *(3 495 
14 

SFL ‘(7 2) *(3 425 
FALSE (*NON-MUMBER™) 


9.9. Arcw List Summary 


The following is a listing of all the various tokens which can appear in the argument LIST of a 
FUNCTION, in the order in which they can occur. Short descriptions of their effects are included. 
All of them are optional -- that is, any of them (in any position) can be left out or included — but 
the order in which they appear must be that of this list. "QUOTEd ATOM, “matching object”, and “2- 
list™ are defined below 


(1) "BIND* 


ds that ATOM to the ENVIRONMENT which ©: 


must be followed by an ATOM. It 
when the FUNCTION was applied. 


(2) ATOMs and QUOTEd ATOMs (any number) 
are required arguments. QUOTEd ATOMs are bound to the matching object. ATOMs are 
bound to EVAL of the matching object in the ENVIRONMENT existing when the FUNCTION 
was applied. 


(3) “OPTIONAL* or "OPT™ (they're equivalent) 
is followed by any number of ATOMs, QUOTES ATOMs, or 2lists. These are optional 
arguments. If a matching object exists, an ATOM — either standing alone or the first 
element of a 2-list ~ is bound to EVAL of the object. performed in the ENVIRONMENT 
existing when the FUNCTION was applied. A QUOTEd ATOM — alone or in a 2-list — is 
bound to the matching object itself. If no such object exists, ATOMs and QUOTEd ATOMS 
are left unbound, and the first element of each 2list is bound to EVAL of the 

(This EVAL is done in the mew ENVIRONMENT of the 

Funetior constructed.) 


corresp 
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(4) “ARGS" (and not “TUPLE*) 
must be followed by an ATOM. The ATOM is bound to a LIST of all the remaining 
arguments, unevaluated. (If there are no more arguments, the LIST is empty.) This 
LIST is actually a REST of the FORM applying the FUNCTION. If "ARGS" appears in the 
arguinent LIST, *TUPLE™ should not appear. 


(4) "TUPLE" (and not “ARGS") 
must be followed by an ATOM. The ATOM is bound to a TUPLE ("VECTOR on the control 
stack") of all the remaining arguinents, evaluated in the environment existing when the 
FUNCTION was applicd. (If no arguments remain, the TUPLE is empty.) If "TUPLE* 

ment LIST, "ARGS" should not appear. 


(5) “AUX" oF "EXTRA" (they're equivalent) 
is followed by any number of ATOMS or 2-lists, These are auxiliary variables, bound 
away from the previous environment for the use of this Function. ATOMs are bound in 
the ENVIRONMENT of the Function, but they are unassigned: the First element of each 2- 
list is both bound and assigned to EVAL of the corresponding second element. (This 
EVAL is donc in the new ENVIRONMENT of the Function as it is being constructed.) 


(6) "NAHE™ or “ACT® (they're equivalent) 
must be followed by an ATOM. The ATOM is bound to the ACTIVATION of the current 
evaluation of the Function. 


ALS 


in place of sections (2) (3) 


J (4), you can have 


(2-8-4) "CALL" 
which su 


appli 


t he followed by an ATOM. The ATOM is bound to the FORM which caused 
ation of this FUNCTION 


The special terms used above mean this: 


“Quoted ATOM” 
clei 


a two-element FORM whose first element is the ATOM QUOTE, and whose second 
ent is any ATOM. (Can be typed -- and will be PRINTed ~ as ‘atom.) 


“Matching object” -- that clement of a FORM whose position in the FORM matches the position of a 
required or optional argument in an argument LIST. 


‘Qelist™ -- a two-element LIST whose first element is an ATOM (or QUOTEd ATOM; see below) and whose 
second clement can he anything but a SEGNENT. EVAL of the second element is assigned to a new 
binding of the first clement (the ATOM) as the “value by default” in "OPTIONAL" or the “initial value” 
in "AUX". In the case of "OPTIONAL", the first element of a 2-list can be a QUOTEd ATOM; in this 
case, an argument which is supplied is not EVALed, but if it Is not supplied the second element of 
the LIST is EVALed and assigned to the ATOM 
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Hy there is a valid reason for the first element of a FORM not to be an ATOM. For example, 
cet to be applied to arguments may be chosen at run time, or it may depend on the 
nts in some way. While EVAL is perfectly happy in this case to EVALuate the first element 

From there, the compiler (Lebling, 1979) can generate more efficient code if it knows 


FIX object that eval 
or (2) is true is to use 


all its arguments, of (3) neither. The easiest way to tell the compiler if (1) 
he ATOM NTH (section 7.1.2) or PUT (section 7.1.4) in case (1) or APPLY in case (2) 
as the Cirst clement of the FORM. (Note: ease (1) ean compile into in-line code, but case (2) compiles 
into a Fully mediated call into the interpreter.) 


APPLY obje 


angel arg-N> 


a s and then applies the former to all the latter. An error occurs if 
object ¢ }ol applicable, or to an FSUBR, or to a FUNCTION (or user Subrout 
chapter 19) with "ARGS* or *CALL* or QUOTEd arguments 


Exai 


ple: 


APPLY <NTI ANALYZERS 
LENGTH <HEMQ <TYPE .ARG> .ARGTYPES>>> 
ARG> 


calls a function te analyze -ARG. Which function is called depends on the TYPE of the argument; 
th s the idea of a dispatch table. 


9.11. CLOSURE 


<CLOSURE function a1... av> 


where function is a FUNCTION, and 2/ through aM are any number of ATOMs, returns an object of 
TYPE CLOSURE. This can be applied like any other function. but. whenever it is applied, the ATOMs 
given in the call to CLOSURE are first bound to the VALUEs they had when the CLOSURE was 
generated, then the function is applied as normal. This is a "poor man's funarg’ 


A CLOSURE is useful when » FUNCTION must have state information remembered between calls to it, 
especially in these two cases: when the LVALs of external state ATOMs might be compromised by other 
Programs. or when more than one distinct sequence of calls are active concurrently. Example of the 
latter: each object of a structured NEMTYPE might have an associated CLOSURE that coughs up one 
element at a time, F bering between calls how far it got. Often only one ATOM will be included 


in the CLOSURE, with a value in the CLOSURE that is a structure containing all the relevant 
for: 
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Chapter 10. Looping 


PROG and REPEAT [1] 


PROG and REPEAT are almost identical FSUBRs which make it possible to vary the order of EVALuation 
arbitrarily -- that is. to have “jumps”. The syntax of PROG program”) is 


<PROG actiatom ausitizt body> 
where 


act is an optiona 


ATOM, which is bound to the ACTIVATION of the PROG 


aux is a LIST whic 


looks exactly like that part of a FUNCTION's argument LIST which follows 
an "AUX", and serves exactly the same purpose. It is not optional. If you need no temporary 
variables or “ACT*, make it () 


body is a non-zero 1 


mer of arbitrary MDL expressions. 


‘The syntax of REPEAT is identical. except that, of course, REPEAT Is the first element of the FORM, 
not PROG 


10.1.1, Basic EVALuation [1] 


Upon entering a PROG, an ACTIVATION is always generated. If there is an ATOM in the right place, 
the ACTIVATION is also bound to that ATOM. The variables in the aux (if any) are then bound as 
indicated in the ux. All of the expressions in body are then EVALuated in their order of occurrence. 
If nothing untoward happens, you leave the PROG upon evaluating the last expression in body, 
returning the value of that last expression. 


PROG thts provides a way to package together a group of thi 
limited way than can be di 
properties. 


gs You wish to do, in a somewhat more 
ne with a FUNCTION. But PROGs are generally used for their other 
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REPEAT acts in all ways exactly like a PROG whose last expression is <AGAIN>. The only way to leave 
a REPEAT is to explicitly use RETURN (or GO with a TAG — section 10.4). 


10.1.2. AGATN and RETURN in PROG and REPEAT [1) 


Within a PROG or REPEAT, you always have a defined ACTIVATION, whether you bind it to an ATOM 

of Hor. [In fact the interpreter binds it to the ATOM LPROG\ !-INTERRUPTS (last PROG"). The FSUBR 

BINO is identical to PROG except that BIND does not bind that ATOM, so that AGAIN and RETURN with 
0 ACTIVATION argument will not refer to it. This feature could be useful within MACROs.] 


If AGAIN is 
REPEAT within th 
REPEAT without 


s. it uses the ACTIVATION of the closest surrounding PROG or 
n (an error occurs if there is none) and re-starts the PROG or 
te eux variables, just the way it works in a FUNCTION. With an 
tion (PROG or REPEAT of FUNCTION) within which it is 


time. 


As with AGATH, if RETURM is given mo ACTIVATION argument, it uses the ACTIVATION of the closest 
surrounding PROG or REPEAT within the current function and causes that PROG or REPEAT to 
terminate and return RETURNs first argument. If RETURN is given no arguments, it causes the 
closest sttrrounding PROG or REPEAT to return the ATOM T. Also like AGAIN, it can, with an 
ACTIVATION argument, terminate any Function within which it is embedded at run time. 


10.1.3. Examples [1] 


Examples of the use of PROG are difficult to find, since it is almost mever necessary. and it slows 
down the interpreter (chapter 24). PROG can be useful as 2 point of return from the middle of a 
computation. of inside a COUD (which see), but we won't exemplify these uses. Instead, what follows 
is an example of a typically poor use of PROG which has been observed among Lisp (Moon, 1974) 
programmers using MDL. Then, the same thing is done using REPEAT. In both cases, the example 
FUNCTION just adds up all its arguments and returns the sum. (The SUBR GO is discussed in section 
10.4.) 


DEFINE MY¥+ (TTUPLE™ TUP) 
<PROG (SUM) 
<SET SUM 0> 
LP <COND (<EMPTY? .TUP> <RETURN -SUHD)> 
SET SUM ¢+ .SUM <1 .TUP>>> 
<SET TUP <REST .TUP>> 
<GO LP>>> 
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s"MDL style" 
<DEFINE MY+ (*TUPLE* TUP) 
<REPEAT ((SUM 0) 
<COND (<EMPTY? .TUP> <RETURN .SUM>)> 
<SET SUM <+ .SUM <1 .TUP>> 
<SET TUP <REST .TUP>>>> 


OF course. neither of the above is optimal MDL code for this problem, since HY+ can be written 
g SEGHENT evaluation as 


<DEFINE MY* (*TUPLE® TUP) <* 1.TUP>> 


There are, of course, to! 


of problems which can't be h 


nply, and lots of uses for REPEAT. 


10.2. MAE 


il MAPR: Basics [1] 


MAPF (“map First") and MAPR (“map rest”) are two SUDRs which take care of a majority of cases which 
Fequire loops over data, The basic idea is the following: 


Suppose you have a LIST (or other structure) of data, and you want to apply a particular function 
to each element. That is exactly what MAPF does: you give it the function and the structure, and it 
applies the function to each clement of the steucture, starting with the First. 


On the. other hand. suppose you want to change each element of a structure according to a 
particul: rithm. This can be done only with great pain using MAPF, since you don't have easy 
Access fo the structure inside the function: you have only the structure's elements. MAPR solves the 
Problem by applying a function to RESTS of a structure: first to <REST structure 0>, then to 
REST structure 1>, ete s. the function can change the structure by changing its argument, 
for example. by a CPUT It can even PUT 2 new element farther down the 
structure. which will be seen by the function on subsequent applications. 


Now suppose. in addition to applying a function to a structure, you want to record the results — the 
values returned by the function -- in another structure. Both MAPF and MAPR can do this: they both 
take an additional function as an argument, and, when the looping is over, apply the additional 
function to Its, and then return the result of that application. Thus, if the additional 

get a LIST of the previous results: if it is ,.VECTOR, you get a VECTOR of 


I the re 
function is LIST, you 
results: ete. 


Finally. itm 
muta 


he the case that you really want to loop a function over more than one structure 
nenusly. For instance. consider creating a LIST whose elements are the element-by-element 
sum Of the contents of two other LISTS. Both MAPF and MAPR allow this} you can, in fact, give each 
Of them any number of structures full of arguments for your looping function. 
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ioned because MAPF and MAPR appear to be complex when seen baldly, due to the 
jescriptions must take inte account the general case. Simpler, degenerate 


10.2.1. MAPF (1) 


<HAPF finalf loop! #1 22 N> 


where (after ar nt evaluation) 


finalt is something applicable that evaluates all its arguments, or a FALSE; 


toopt is semer applicable to A arguments that evaluates all its argume 


nigh sl are structured objects (any TYPE) 
does the followin) 
(1) First, it applies loopf to N arguments: the first element of each of the structures. Then it 


RESIS ¢ g until any of the steuctures 
runs out of elements, Each of the values returned by /oopf is recorded in a TUPLE 


ch of the tet 


tures, and docs the application again, loop 


(2) Then, it applies finaif to all the recorded values simultaneously. and returns the result of that 
application. If finait is a FALSE, the recorded values are “thrown away” (actually never recorded 
in the First place) and the MAPF returns only the last value returned by /oopf. If any of the sf 
structures is empty. so that /oopf is never invoked, final is applied to no arguments; if finaif is a 
FALSE, MAPF returns #FALSE () 


10.2.2. MAPR 1} 


<HAPR finalf loopf s1 52... sM> 


acts just like MAPF, but, instead of applying foopf to NTHs of the structures — that is, <NTH si 1>, 
<NTH s/ 2>, etc. ~ it applies it to RESTs of the structures ~ that is, CREST s/ 0>, <REST si 1>, ete. 


10.2.3. Examples [1] 


Is 


<HAPF JLIST ,# "(1 2.3.4) "(10 12 12 13998 
(1 13/15 17) 
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Change a UVECTOR te contain double its values: 


<SET UV 'I[5 6 7 8 9}>S 
11567891) 


<HAPR 
#FUNCTION ((L) <PUT .L 1 <® <1 .L> 29>) 
us 

10181) 

uvs 


tE10 12 14 16 1847 
Create a STRING from CHARACTERS: 


SMAPF ,STRING 1 ‘[*MODELING* *DEVELOPHENT" "LIBRARY" ]>S 
MOL" 


Sum t 


squares of the elements of a UVECTOR. 


MAP .+ #FUNCTION ((N) <* .N ND) "IES 4]>8 


A parallel assign 


jet FUNCTION (Note that the arguments to MAPF are of different Jengths.): 


DEFINE PSET (*TUPLE™ TUP) 


<MAPF <> 
+SET 
Tup 
<REST .TUP </ <LENGTH .TUP> 2>>>>S 
PSET 
<PSET ABC 12 3>8 
3 
AS 
1 
8s 
cs 
3 
Note: it is easy to forget that finalf must evaluate its arguments, which precludes the use of an 
FSUBR. Ir is primarily for this reason that the SUBRs AND? and OR? were invented. As an example, 
the predicate =? could have been defined this way 
10.23 Looping 
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DEFINE =7 (A B) 
<COND (<HONAD? .A> <==? .A .8>) 
(SAND <NOT <HONAD? .B>> 


<HAPF AND? ,=? .A .B>)>> 
[By the way, the following shows how to construct a value that has the same TYPE as an argument. 


<DEFINE MAP-NOT (S) 
<COND (CHEMO <PRIMTYPE .S> ‘I[LIST VECTOR UVECTOR STRING]> 
<CHTYPE <MAPF ,<PRINTYPE .S> ,NOT .S> | 
<TYPE -5>>)>> 
It works because the ATOMS that name the common STRUCTURED PRIMTYPEs (LIST, VECTOR, | 
UVECTOR and STRING) have as GVALs the corresponding SUBRs to build objects of those TYPES.) 


10.3. More on MAPF ; 


HAPR 


10.3.1. MAPRET | 


MAPRET is a SUBR that enables the foopf being used in a MAPR or MAPF (and lexically within it, that is, 
not separated from it by a function call) to return from zero to any number of values as opposed to 
just one. For example, suppose a APF of the Following form is used: 


<MAPF LIS 


<FUNCTION (E) ...> ...> 


Now suppose that the programmer wants to add no elements to the Final LIST on some calls to the 
FUNCTION and add many on other calls 10 the FUNCTION. To accomplish this, the FUNCTION simply 
calls MAPRET with the elements it wants added to the LIST. More generally, MAPRET causes its 
arguments to he added to the final TUPLE of arguments to which the finaif will be applied. 


Warning: MAPRET is gu 


ranted to work only if it is called from an explicit FUNCTION which is the 
second argument to a MAPF or MAPR. In other words, the second argument to MAPF or MAPR must be 
#FUNCTION (...) of <FUNCTION ...> if HAPRET is to be used. 


Example: the following returns a LIST of all the ATOMs in an OBLIST (chapter 15): 
<DEFINE ATOMS (0B) 
<HAPF LIST 
FUNCTION (8KT) <MAPRET !.BKT>> 
08>> 
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10.3.2. MAPSToP 


MAPSTOP is the same as HAPRET, except that, after adding its arguments, if any, to the final TUPLE, 
it forces the application of finait to occur, whether or not the structured objects have run out of 
elements, Example: the following copies the first ten (or all) elements of its argument into a LIST: 


DEFINE FIRST-TEN (STRUC “AUX™ (I 10)) 
<HAPF LIST 
<FUNCTION (E) 
<COND (<O? <SET I <- . 1>>> <HAPSTOP .£>)> 
=> 
STRUC>> 


| 10.3.3. MAPLEAVE 


MAPLEAVE alngons to RETURN, except that it works in (lexically within) MAPF or MAPR instead of 
PROG or REPEAT. It Flushes the accumulated TUPLE of results and returns its argument (optional, T 
by default) as the value of the HAPF or MAPR. (It finds the MAPF/R that should return in the current 
Binding of the ATOM LMAP\ !-INTCRRUPTS (last map".) Example: the following finds ar 
the first non-zero clement of its argument, or #FALSE () if there is non: 


returns 


DEFINE FIRST-NO (STRUC) 
<MAPF <> 
<FUNCTION (x) 
<COND (<H 
sTRUC>> 


7 -X 0 <HAPLEAVE .x>)>> 


10.3.4. 0: 


rents 


y two arg: 


If MAPF or MAPR is ¢ 


iven only two arguments, the iteration function /oopf is applied to no arguments 
cach 1 


e. and the lonping continues indefinitely until a MAPLEAVE or HAPSTOP is invoked. 
Example: the following returns a LIST of the integers from one less than its argument to zero. 


<DEFINE LNUM (MH) 
<MAPF LIST 
<FUNCTION () 
<COND (CO? <SET N <- .N 19> <MAPSTOP 0>) 
(ELSE .N)>>>> 


One principle use of this form of MAPF/R involves processing in 
don't know how many chai 


IBRs which are a 


ut characters, In cases where you 
ters are going to arrive. The example below demonstrates this, using 
re fully explained in chapter II. Another example can be found in chapter 13. 
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Example: the following FUNCTION reads characters from the current input channel until an S (ESC) 

is read. and then re was read as one STRING. (The SUBR READCHR reads one character from 
¢ input channel and returns it, NEXTCHR returns the mext CHARACTER which REAOCHR will return — 
pter 11) 


<DEFINE ROSTR () 
<MAPF .STRING 
<FUNCTION () <COND (<NOT <==? <NEXTCHR> <ASCII 27>>> 
<READCHR>) 
a 
<MAPSTOP>)>>>95 
ROSTR 


<PROG () <READCHR> :*Flush the ESC ending this input.* 
<ROSTRD>S 
ABCIZ3<* 3 4>S"ADCIZ9¢¢ 34>" 
10.3.5. STACKFORM 


The FSUBR STACKFORM is are 
should not be used 


ic. due to improvements in the implementation of MAPF/R, and it 
hew progeais, 


<STACKFORM function arg pred> 


is exactly equivalent to 


<MAPF function 
<FUNCTION () <COND (pred arg) (T <HAPSTOP>)>>> 

In fact MAPF/R is more powerful, because MAPRET, HAPSTOP, and MAPLEAVE provide flexibility not 
available with STACKFORM. 
10.4. GO and TAG 
GO is provided in MDL for people who can't recover from a youthful experience with Basie, Fortran, 
PL/I, etc. ‘The SUBRs previously described in this chapter are much more tasteful for making good, 
clean, “structured” programs. GO just bollixes things. 
GO is a SUBR which allows you to break the normal order of evaluation and re-start just before any 
top-level expression in a PROG of REPEAT take two TYPEs of arguments: ATOM or TAG. 

10.3.4 - 10.4 Looping 
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Given ano GO searches the & 
current Function. st 


Of the immediately surrounding PROG or REPEAT within the 
ing after aux. for an occurrence of that ATOM at the top level of body. (This 
ectively a MEMO.) If it doesn’t find the ATOM, an error occurs. If it does, evaluation is 
d at the expression following the ATOM 


Je SUBR TAG « 
whieh wow 


nerates aud returns objcets of TYPE TAG. This SUBR takes one argument: an ATOM 
is be a legal argument for a GO. An object of TYPE TAG contains sufficient information 
to allow you to GO te any top-level position in a PROG or REPEAT from within any funetion called 
inside the PROG or REPEAT. GO with a TAG is vaguely like AGAIN with an ACTIVATION; it allows you 
fo "go back” to the middle of any PROG or REPEAT which called you. Also like ACTIVATIONs, Tacs 


{nto @ PROG oF REPCAT can no longer be used after the PROG or REPEAT has returned. LEGAL? can be 
© if a TAG is still valid, 


used to si 


10.5. Looping versus Recursion 
Since any program in MDL can be called recursively. champions of “pure Lisp” (Moon, 1974) or 
someauch may be tempted to implement any repetitive algorithm using recursion. The advantage 
of the loop ‘chuniques described in this chapter over recursion is that the overhead of calls is 
climinated. However, a long program (say. bigger than half a printed page) may be more difficult 
to write itcratively than recursively and hence more difficult to maintain. A program whose 
Fepet s controlled by a structured object (for example, “walking a tree” to visit each monad in 


see ceete? often should use looping for covering one “level” of the structure and recursion to change 
“levels” 
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Chapter 11, Input/Output 


‘The MDL preter can transmit information between an object in MDL and an external device 

three ways. Historically, the first way was to convert an object into a string of characters, or 
vice versa. ‘The transformation is nearly one-to-one (although some MDL objects, for example 
TUPLEs, cannot put in this way) and is similar in style to Fortean's formatted 1/O. It is what 
READ and PRINT do, and it is the normal method for terminal 1/0. 


The second way is used for the contents of MDL objects rather than the objects themselves. Here 


age of numbers or characters within 


ted VO, 


object is transmitted, 


ilar in style to Fortean’ 


The third way is to dump an object in a clever format so that it can be reproduced exactly when 

input the next time. Exact reproduction means that any sharing between structures or self- 
Pt y cE 

reference is preserved: only the garbage collector itself can do 1/O in this way. 


ILL. Conversion 1/0 


AM! conversion-1/O SUBRs in MDL take an optional argument which directs their attention to a 
specific 1/0 channel. This section will describe SUBRs without their optional arguments. In this 
situation. they all refer to a particular channel by default, initially the terminal running the MDL. 
When given an optional argument, that argument follows any arguments indicated here. Some of 
these SUBRs also have additional optional arguments, relevant to conversion, discussion of which will 
be deferred u 


I later. 


following input Subroutines. when directed at a terminal, hang until $ (ESC) is typed and 
Huse of rubout, 7D, ~ 
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HAL READ. 


<READ> 


chtire MDL. object whose character representation is next in the input stream, 
Successive <READDs retuen successive objects. This is precisely the SUBR READ mentioned in chapter 
2. See also sections 11.3, 15.7.1, and 17.1.8 For optional arguments. 


1111.2. READCHR 
<READCHR 


(read character") returns the next CHARACTER in the input stream. Successive <READCHRDs return 
sticcessive CHARACTERS. 


HLA. NEXTCHR 
<NEXTCHR> 


Cnext character”) returns tke CHARACTER which READCHR will #1 
Multiple <NEXTCHR>s, with 


urn the next time READCHR is called. 
© input operations between them. all return the same thing. 


11.1.2. Output 


IF an object 10 be output requires (or can tolerate) separators within it (for example, between the 
elements in a structured object or after the TYPE name in “# notation”), these conversion-output 
SUBRs will use a carriage-return/line-feed separator to prevent overflowing a line. Overflow is 
detected in advance from elements of the CHANNEL in use (section 11.2.8). 


11.2.1. PRINT 
<PRINT any> 


This outputs, in order. 
(1) a carriage-return line-feed. 
(2) the character representation of EVAL of its argument (PRINT is a SUBR), and 
(3) a space 

and then returns EVAL of its argument. This is precisely the SUBR PRINT mention 


-d in chapter 2. 


1.1.2.2. PRINT 
<PRINI any> 
Outputs just the representation of, and returns, EVAL of any. 
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11.1.2.3. PRINC 


<PRINC any> 


Cer 


acts exactly like PRIN), except that 

(2) if its argument is a STRING of a CHARACTER, it suppresses the surrounding “s or initial !\, 
respectively? or, 

(2) 40 its a js an ATOM, it suppresses any \s or OBLIST trailers (chapter 15) which would 
otherwise be necessary. 


If PRINC’s args 
will be 


nt is a structure containing STRINGs, CHARACTERS, or ATOMs, the service mentioned 
jone For all of them, Ditto for the ATOM used to name the TYPE in “# notation”. 


1.1.2.4, TERPRI 


<TERPRID 


Cterminate printing”) outputs a carriage-return line-feed and then returns #FALSE ()! 
1.1.2.5. CRLF 

<crir> 
Cearriage-return line-feed") outputs a carriage-return Jine-feed and then returns T. 
1.1.26. FLATSIZE 


| 
EFLATSIZE any maxctin radirsin? | 
| 


docs not actually cause any output to occur and does not take a CHANNEL argument. Instead, it 
compares may with the number of characters PRIN] would take to print any. If max is less than the 
number of characters needed (including the case where any is self-referencing), FLATSIZE returns 
#FALSE (); otherwise. it returns the number of characters needed to PRIN] any. radix (optional, ten 

by default) is used for converting any FIXes that occur. 


This SUBR is especially useful in conjunction with (section 11.28) those elements of a CHANNEL 
which specify the number of characters per output line and the current position on an output 
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1/0 channels are dynamically assigned in MDL, and are represented by an object of TYPE CHANNEL, 
which is of PRIMTYPE VECTOR. The format of a CHANNEL will be explained later, in section 
11.2.8. First, how to generate and use them. 
11.2.1. OPEN 

<OPEN mode file-spec> 


OPEN mode namel name2 device dir> 


OPEN is a SUUR which creates and returns a CHANNEL. All its arguments must be of TYPE STRING, 


and all are optional. The preceding statement is false when the device is “INT* or "NET"; see 
sections 11.9 and 11.10. If the attempted opening of an operating-system 1/O channel fails, OPEN 
Feturns #FALSE (reasonstring file-spec-string statustix), where the reason and the status are 


supplied by 
transfo 


Ne operating system, and the file-spec is the standard name of the file (after any name 


nations by the operating system) that MDL was trying to open. 


The choice of mode iy determined by which SUBRs will be used on the CHANNEL, and whether 
OF not the device is a terminal. The following table tells which SUBRs can be used with which modes, 


where OK indicates an allowed use: 


"READ" "PRINT" "READB™ “PRINTB" mode / SUBRS 


“PRINTO" 
oK ox READ READCHR NEXTCHR READSTRING FILECOPY FILE-LENGTH 
LOAD 
ox PRINT PRINI PRINC IMAGE CRLF TERPRI FILECOPY 
PRINTSTRING BUFOUT NETS RENAME 
ox READB GC-READ 
OK PRINTB GC-DUMP 
oK ox OK ACCESS 
oK oK OK OK RESET 
oK OK ECHOPAIR 
oK TTYECHO TYI 
* PRINTing (or PRIN1ing) an RSUBR (chapter 19) on a *PRINTB* or *PRINTO* CHANNEL has special 
effects, 
“PRINTG" differs from "PRINTO" in that the latter mode is used to update a “DSK" file without 
copyin) "READE" and "PRINTS" are ed with terminals. "READ" is the mode used by 
default 
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The next one to four arguments to OPEN specify the file involved. If only one STRING is used, it 
can contain the entire specification, according to standard operating-system syntax. Otherwise, the 
string(s) are interpreted as follows: 


name is the First file 
Tenex and Tops-20 vers 
INPUT" 


me. {hat part to the left of the space (in the ITS version) or period (in the 
8). me used by default is <VALUE NMI>, if any, otherwise 


name? is the second file name. that part to the right of the space (ITS) or period (Tenex and Tops- 
20). The name used by default is <VALUE NH2>, if any, otherwise *>* (ITS) or "MUD" and highest 
Version number (Tenex) or generation number (Tops-20). 


device is the device name. ‘The name used by default is <VALUE DEV>, if any, otherwise "DSK" 
1 @evices about which MDL has no special knowledge are assumed to behave like "DSK" .) 


dir is the disk-directory name. The name used by default is <VALUE SNM>, if any, otherwise the 
“working-dircetory” naine as defined by the operating syster 


Examples: 
<OPEN “PRINT™ “TPL:*> opens a conversion-outpul CHANNEL to the TPL device. 


<OPEN 


RINT" "DUNMY" "NAHES" *TPL*> does the same. 


<OPEN "PRINT" “TPL"> opens a Cc 
(Tenex and Tops-20 versions). 


NNEL to the file OSK:TPL > (ITS version) or DSK:TPL.MUD 


<OPEN "READ" "Foo" ">" "DSK= 


> opens a conversion-input CHANNEL to the given file. 


<OPEN “READ™ “GUEST:FOO"> does the same in the ITS version. 


11.2.2. OPEH-NR 


OPEN-NR is the same as OPEN, except that the date and time of last reference of the opened file are 
ot changed. 


11.2.3. CHANNEL (thre SUBR) 


CHANNEL is called exactly like OPEN, Lut it always returns an unopened CHANNEL, which can later be 
opened by RESET (below) just as if it had once been open. 
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1.2.4. FILE-EXTSTS? 


FILE-EXISTS? tests for the existence of a file without creating a CHANNEL, which occupies about a 
ndred machine words of storage. It takes file-name arguments just like OPEN (but no mode 

argument) and returns either T or #FALSE (reaso 

are supplied by the operat 

changed. 


system. ‘The date and time of last reference of the file are not 


vusifix), where the reason and the status 


11.2.5. CLOSE 


<cLose 


ail bu 


and returns its argument, with its “state” changed to “closed”. If channel is for output, 
fered output is written out first, No harm is done if channel is already CLOSES. 


11.2.6, CHANLIST 
<CUANLIST> 
returns a LIST whose elements are all the currently open CHANNELs, The first two elements are 


usually ,INCHAN and ,OUTCHAN (see below). A CHANNEL not referenced by anything except 
<CHANLIST> will be CLOSEd during garbage collection. 


11.2.7. INCHAN and OUTCHAN 


© cha 


rnel used hy default for input SUBRs is the focal value of the ATOM INCHAN. ‘The channel 
used by default for output SUBRs is the local value of the ATOM OUTCHAN. 


You can direct VO to a CHANNEL by SE 


ting INCHAN or OUTCHAN (remembering their old values 
somewhere}, or by giving the SUBR you wish to use an argument of TYPE CHANNEL. (These actually 
have the same effect, because READ binds INCHAN to an explicit argument, and PRINT binds OUTCHAN 
Similarly. ‘Thus the CHANNEL being used is available for READ macros (section 17.1) and PRINTTYPES 
(section 6.4.4),) 


By the way. a good 


rick for playing with INCHAN and OUTCHAN within a function is to use the ATOMS 
NCHAN and O\TCHAN as "AUX" variables, re-binding their local values to the CHANNEL you want. 
When you leave, of course. the old LVALs are restored (which is the whole point). The ATOMs must be 
declared SPECIAL (chapter 14) For this trick 1 compile correctly. 


INCHAN and OUTCHAN also have global valucs, initially the CHANNELS directed at the terminal running 
1 and OUTCHAN's local and global values are the same. 
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11.2.8, Contents of CHANNELS 


The contents of an object of TYPE CHANNEL are referred to by the I/O SUBRs each time such a SUBR 
is used. If you change the contents of a CHANNEL (for example, with PUT), the next use of that 
CHANNEL will be changed appropriately. Some elements of CHANNELS, however, should be played with 


seldom. if ever, and only at your peril. These are marked below with an e (asterisk). Caveat user. 


There follows a table of the conte 
The format use 
element-number: type interpretation 


Sof a CHANNEL, the TYPE of each element, and 


1 interpretation. 


is the Following: 


1.2.8.1, Output CHANNELS 


The comtents of a CHANHEL used for output are as follows: 


sl: LIST transcript channel(s) (see below) 

#0: varies device-dependent informatio 

+k FIX channel number (ITS) or JEN (Tenex and Tops-20), 0 for internal or closed 
1° 2: STRING ode 

eS: STRING — fiest Fite name arguinent 

*4: STRING second file name argument 

+5: STRING — device name arguinent 


©G: STRING — directory na 
| 7: STRING real first File 
STRING real second file 
+O: STRING — real device n 
+10: STRING real directory name 
various status bits, 
PDP-10 instruction used to do one 1/0 operation 
ber of characters per line of output 
rent character position on a line 
her of lines per page 
rent line number on a page 
acess pointer for File-oriented devices 
radix for FIX conversion 
sink for an internal CHANNEL 


ne argument 


N.B. The clements of a CHANNEL below number 1 are usually invisible but are obtainable via <NTH 
<TOP channel> fix>, for some appropriate fix. 


The transcript-channels slot has this meaning: if this slot contains a LIST of CHANNELs, then 
anything input or ourput on the original CHANNEL is output on these CHANNELS. Caution: do not use 
@ CHANNEL as its own transcript channel you probably won't live to tell about it. 
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1.2.8.2. Input CHA 


HELS 


The contents of the elements up to number 12 of a CHANNEL used for 
output. The remaining elements are as follows (same) indicates that 
output: 


nput are the same as that for 
use is the same as that for 


13: varies object evaluated when end of file is reached 
ola: FIX one “look-ahead” character, sed by READ 

e15: FIX PDP-10 instruction executed waiting for input 
16: LIST queue of buffers for input from a terminal 


er for File-oriented devices (same) 


17: FIX aceess po 
18: FIX radix for FIX conversion (same) 
19: STRING buffer For input oF source For internal CHANNEL | 


11.3. Endof 


Rout 


AS mentioned above, an explicit CHANNEL is the first optional arg 


pent of all SUBRs used for 
gument for conversion-input SUBRs is an “end-of-file 
ng for the input SUBR to EVAL and return, if it reaches the end of t 
it is reading. A typical end-of-file argument is a QUOTE FORM which applies a function of yours 
The value of this argument used by default is a call to ERROR. Note: the CHANNEL has been CLOSEG 
by the time this argument is evaluated. 


VO. The second optional 
routine” -- that is, somet 


e file 


Example: the follow 
argum 


FUNCTION counts the occurrences of a character in a file, according to its 


*. The file names, device, and directory are optional, with the usual names used by default 


<DEFINE COUNT-CHAR 


(CHAR "TUPLE™ FILE "AUX" (CNT 0) (CHN COPEN "READ" !.FILE>)) 
<COND (.CHN i7If CHN is FALSE, bad OPEN: return the FALSE 
50 result can be tested by another FUNCTION.* 
REPEAT () 
SAND <==? .CHAR <READCHR .CHN '<RETURN>>> 


<SET CNT <* 1 .CNT>>9> 
:7Unti1 EOF, keep reading and testing a character at a time.* 
cur 3*Then return the count.")>> 
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w4.t 


aged 1/0 


11.4.1. Inpur 
1.4.1.1. READB 


EREAOR Ini/tersuvector-or-storase channel eol:any? 


The channel must be open in "READB* mode, READB will read as many 36-bit binary words as 
necessary 10 Fill the buffer (whose UTYPE must be of PRIMTYPE WORD), unless it hits the end of file. 
read, as a FIXed-point number. This will normally be 
the length of the buffer, unless the end of file was read, in which case it will be less, and only the 
ng of buffer will have been filled (SUBSTRUC may help). An attempt to REAOB again, after 

/, which Is optional, a call to ERROR by 


READE returns the number of words actual: 


is not Filled, will evaluate the end-of-file routine e 


default 
1.4.1.2. READSTRING 

<READSTRING buffersstring channel stopix-or-string eof> 
is the STRING analog to READB, where buffer and eof are as in READB, and channel is any input 
CHANEL (.INCHAN by default) sfop tells when to stop inputting: if a FIX, read this many 


CHARACTERs (Fill up buffer by default if a STRING, stop reading if any CHARACTER in this STRING is 
read (don't include this CHARACTER in final STRING) 


11.4.2. Ourp 


1.4.2.1. PRINTS 


<PRINTR befteruve 


wr-or-storage channel> 


This call writes the entire contents of the buffer 
“PRINTO" mode. It returns buffer 


to the specified channel open in “PRINTB™ or 


11.4.2.2, PRINTST 


c 
<PRINTSTRING boffer:string channel countstix> 


is analogous to READSTRING. It outputs buffer on channel, either the whole thing or the first count 
he number of characters output. 
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1.4.2.3, IMAGE 


IMAGE fix channel> 


is a rather special-purpose SUBR. When any conversion-output routine outputs an ASCII control 
character (with special exceptions like carriage-returns, line-feeds, ete), it actually outputs two 
characters: ~ (circumflex), followed by the upper-case character which has been control-shifted. 
IMAGE, on the other hand. always outputs the real thing: that ASCII character whose ASCII 7-bit 
code is fi, It iy guaranteed not to give any gratuitous line-feeds or such. channe/ is optional, 
OUTCHAN by default, and its stots for current character position (number 14) and current 1 
number (16) are not updated. IMAGE returns fix 


mped 1/0 


11.5.1, Ourput: 6C-pUMP 


C-DUMP any pe 


shannal-or-falea> 


ny on printh in a clever Fors 


dumps so that GC-READ (below) can reproduce any exactly, including 
sharing. any cannot live on the control stack, nor can it be of PRINTYPE PROCESS or LOCD or ASOC 
(which see). any is returned as a value. 


If printh is a CUAH 


be open in "PRINTS" or “PRINTO" mode. If print is a FALSE, 
GSC-DUMP instead returns a UVECTOR (of UTYPE PRINTYPE WORD) that contains what it would have 
Output on a CHANNEL. This UVECTOR can be PRINTBed anywhere you desire, but, if it is changed in 


any_way, GC-REAO will not be able to input it. Probably the only reason to get it is to check its 
before output 


Except for the min 
the a 


ture garbage collection required. GC-DUMP is about twice as fast as PRINT, but 
I OF external storage used is (wo or three times as much. 


41.5.2. Input: GC-READ 


<GC-READ readbschannel eof:any> 


Feturns one object From the channel, which must be open in *READB* mode. The fii 


ed by GC-DUMP. eof is optional. GC-READ is about ten times faster than READ 


must have been 
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11.6. SAVE F 


The entire state of MDI. ca 


be saved away in a file for later restoration: this is done with the SUBRS 
SAVE and RESTORE. This is a very different form of 1/0 from any mentioned up to now; the file 
Used contains an actual image of your MDL address space and is not, in general, “legible” to other 
MDL routines. RESTORFing a SAVE file is much faster than re-READIng the objects it contains. 


Since a SAVE File docs not contain all extant MDL objects, only 
2.9.2) ones. a change to the interpreter has the result of makin 


impure and PURIFYed (section 
all previous SAVE files unusable. 
from this, the interpreter has a release number, which is incremented 
are installed. ‘The current release number is printed out on initially starting up 
He program aud is available as the GVAL of the ATOM MUDDLE. This release number is written out 
as the very first part of each SAVE file. If RESTORE attempts to re-load a SAVE file whose release 
umber is Hot the same as the interpreter being used, an error is produced. If desired, the release 
ber of a SAVE file can be obtained by doing a READ of that file. Only that initial READ will 
work: the rest of the File is not ASCIL 


"0 prevent errors From arisi 


11.6.1. SAVE 
<SAVE file-spec:etring gcMalse-or-any> 
<SAVE name! name2 device dir gc?alse-or-any> 
saves the entire state of your MDL away in the file specified by its arguments, and then returns 
*SAVED™. All STRING onal. with "MUDDLE", "SAVE", "DSK", and <VALUE SNM> 


used by default. gc? is optional and, if supplied and of TYPE FALSE, causes no garbage collection to 
occur before SAVEing. (FSAVE is an alias for SAVE that may be seen in old programs.) 


If, after restoring, RESTORE Finds t 
system for the 


at <VALUE SNMD is the null STRING (**), it will ask the operating 
of the “working directory” and call SNAME with the result. This mechanism is 
handy for “public” SAVE files, which should not point the user at a particular disk directory. 


In the ITS version, the file is actually written with the name _HUDS_ > and renamed to the 
argument(s) only when complete. to prevent losing a previous SAVE file if a crash occurs. In the | 
Tenex and Tops-20 versions, version/generation numbers provide the same safety. 


Example: 
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<DEFINE SAVE-IT (*OPTIONAL™ 
| (FILE "( "PUBLIC" *SAVE™ *DSK* *GUEST*)) 
"AUX" (SNM *")) 
<SeTUP> 
<COND (<=? "SAVED" <SAVE | .FILE>> 
<CLEANUP> 
"Saved.") 
i 
<cRLF> 
<PRINC "Amazing program at your service."> 
<CRLF> 
<START-RUNNING>)>> 


‘See below.* 


1. RESTORE 


<RESTORE Mie-spec> 


CRESTORE name! name2 device dir? 


feplaces the cntire current state of your MDL with that SAVEd in the file specified. All arguments 
are optional, with the same values used by default as by SAVE 


RESTORE completely replaces the contents of the MDL. including the state of execution existing 
when the SAVE was done and the state of all open I/O CHANNELs. If a file which was open when the 
SAVE was done docs not exist when the RESTORE is done, a message to that effect will appear on the 
terminal, 


A RESTORE never returns (unless it gets an error: it causes a SAVE done some time ago to return 
again (this time with the value "RESTORED"), even if the SAVE was done in the midst of running a 
Program. In the latter case. the prograin will continue its execution upon RESTOREation, 


1.7.1, Loan 


<LOAD input:channe! look-up> 


event 


poNe* wever, It READ: 


nd EVALs every MDL object in the file pointed 
16.1 = 1174 Input/Output 
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to by input, and th 
given 


CLOSEs input. Any occurrences of rubout, “@, 7D, WL. 
10 special meaning: they are simply ATOM constituents. 


. ete, in the file are 


fook-up is optional, used to specify a LIST of OBLISTs for the READ. .OBLIST is used by default 
(chapter 15), 


11.7.2. FLOAD 
<FLOAD file-spec fook-up> 


<FLOAD name! name2 device dir look-up> 


(file toad”) acts just like LOAD, except that it takes arguments (with values used by default) like 
OPEN, OPENs the CHANNEL itself for reading. and CLOSEs the CHANNEL when done. /ook-up is optional, 
as in LOAD. If the OPEN fails, an error occurs, giving the reason for failure. 


11.7.3. SHANE 


ESNAME strins> (ayst 


tame", a hangover from ITS) is identical in effect with <SETG SNM string>, 
to become the dir argument used by default by all SUBRs which want file 
specifications (in the absence of a local value for SNM). SNAME returns its argument. 


<SNAME> is identical in effect with <GVAL SKMD, that i 


it returns the current dir used by default. 


11.7.4, ACCESS 


<ACCESS channel fix> 
returns channel. after making the next character or binary word (depending on the mode of channel, 
Which should not be PRINT") which will be input from or output to channel the (/ixel)st one from 
the beginning of the file. channel must be open to a randomly accessible device (“DSK", *USR 
ete.). A fiv of 0 positions channel at the beginning of the file. 


11.7.5. FILE-LENGTH 
<PILE-LENGTH inputichanne!> 


returns a FIX, the length of the file open 


1 input. This information is supplied by the operi 
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system, aud it may not be available. for example, with the *NET* device (section 11.10). If input's 
fnode is "READ", the length is in characters (rounded up to a multiple of five if "READB", in 
Binary words. If ACCESS is applied to input and this length or more, then the next input operation 
| will detect the end of File. 


17.6, FILECOPY 


<FILECOPY inputicha 


Inel_outputichannel> 


copies characters from input to output until the end of file on input (thus closing input) and returns 
the number of characters copied. Both arg sare optional, with -INCHAN and .OUTCHAN used by 
H default, respectively. The operation is essentially 2 READSTRING - PRINTSTRING loop. Neither 
H CHANNEL need be freshly OPENed, and output need not be immediately CLOSEd. Restriction: internally 

a <FILE-LENGTH inpuf> is done, which must succeed: thus FILECOPY might lose if input is a “NET™ 
CHANNEL 


11.7.7, RESET 


RESET channel> 


returns: hannel. after “reset 


"it. Resetting a CHANNEL is like OPENing it afresh, with only the file- 
ame slots preserved. For an input CHANNEL, this means emptying all input buffers and, if it is a 
CHANNEL to a file, doing an ACCESS to 0 on it. For an output CHANNEL, this means returning to the 
beginning of the file -- which implies, if the mode is not *PRINTO", destroying any output done to 
it so far, If the opening fails (for example, if the mode slot of channel says input, and if the file 
specified in its real-name slots does not exist), RESET (like OPEN) returns #FALSE (reason:string file- 
spec:stri 


status:tix) 


11.7.8, BUFOUT 
<BUFOUT oufputschannel> 
causes all internal MDL buffers for output to be written out and returns its argument. This i 


helpful if the operating system or MDL is flaky and you want to attempt to minimize your losses. 
‘The output may be padded with up to four extra spaces, if output’s mode is "PRINT 


11.7.9, RENAME 


RENAME is for renaming and deleting files. It Lakes three kinds of arguments: 
(a) two file names. in either single- or multi-STRING format, separated by the ATOM TO, 
¢ name in either format, or 


1178 - 11.7.9 Inpur/Ourput 


Omitted site-naime parts use vise same values by default as does OPEN. If the operation is successful, 
RENAME revurny 1, otherwise #FALSE (reason-string statusstix) 


case (a) the file specified by the first argument is renamed to the second argument. For example: 
<REKAME "FUG 3" TO “BAR"> i*Rename FOO 3 to BAR >.* 


Ie File name specifies a file to be deleted. For example: 


RENAME "FOO FOO DSK:HARRY:"> ; "Delete Tile FOO FOO from 
HARRY's directory.* 


In case (e) the CHAN 
for wr 


FL must he open in cither *PRINT* or *PRINTB* mode, and a rename while open 
pied. The real-name slots in the CHANNEL are updated to reflect any successful 


change. 


Is. T 1 CuANHIELS 


MDL hehaves lite the ITS version of the text editor Teco with respect to typing in carrlage-return 
in thar ic automatically adds a line-feed. In order to type in a lone carriage-return, a carriage-return 
followed by a rubs 

feed when a cai s oversiriking on a terminal that lacks 
backspacing capability. 11 also means that what goes on a terminal and what goes in a file are | 
more likely te lool. the same. 


n2 The MDL Programming Language 
(c) CHANNEL and a file wame in either format (only in the ITS version), 
| 


must be typed. Also PRINT, PRIMI and PRINC do not automatically add a line- 


In the ETS version. MBLs pei al output channel (usually ,OUTCHAN) is normally not in 
“display” move, except when PRiicing a STRING. Thus errors will rarely occur when a user ts |p 


In the ITS versio 


MDL. cam start up without a terminal, give control of the terminal away to an 
inferior oporatin 


system process or get it back while running. Doing a RESET on either of the 
terminal channels causes MDL to find out if it now has the terminal if it does, the terminal is 
Feopencd and the current screen size and device parameters are updated. If it doesn't have the 
terminal, au internal FL \g output to the terminal to be ignored and attempted input 


From the terminal 10 make the epera:ig-system process go to sleep. 
In the 62'S ves on. the. are some py liarities associated with pseudo-terminals (“STY" and "STn* 
devices). If the CHANNIL given to RIZDCHR is open in "READ" mode to a pseudo-terminal, and if no 


put is available, REAGCHR cotuens ~«, TYPL FIX. If the CHANNEL given to READSTRING is open in 
EAD" made to a pyendo-teriainal, ceding aso stops if and whei 
that is, when REANCUR would returts =) 


no more characters are available, 
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118.1, ECHOPATR 
<ECHOPAIR forminal-inichanne! terminal-outschannel> 


78, 7D anne 7 


Hutent, aftce Waking the tWo CHANNELS "know about each other” so that rubout, 
nal-mm wail cause the appropriate output on ferminal-out 


11.8.2. TT¥ECHO 
TTYECHO fermunal-inputchannel pred> 


f typed characters on channel off or on, according to whether or not pred is of 
TYPE FALSE, ane retucus channel It is useful in conjunction with TY (below) for a program that 
wants to do character input and echoing in its own Fashion. 


CTER From char 


returns one CHAR, (optional, .INCHAN by defaull n it is typed, rather than 
after & (ESC) is typed. as is the case with READCHR. The following example echos input characters 
as theie ASCH values, until a carriage-return is typed: 


REPEAT ((FOO <TTYECHO -INCHAN <>>)) 
<AUD <==? 13 CPRINC <ASCII <TYI -INCHAND>>> 
<RETURN <TTYECHO .INCHAN T>>>> 


If the device specified in an OPEN is 


NT", a CHANNEL is created which does not refer to any I/O 
device outside MDL. In this case. the mode must be "READ" or "PRINT*, and there is another 
argument, which must be a function 


For a "READ" CHANNEL, the function must take no arguments. Whenever a CHARACTER is desired 
From thix CHAWNEL, the function will be applied to no arguments and must return a CHARACTER. 
This will occur once per call to RE his CHANNEL, and several times per call to READ. In 
the ITS version, the function cau signal that its “end-of-file has been reached by returning <CHTYPE 
*777777000003% CHARACIER> (-1 in left half, control-C in right). which is the standard ITS end-of- 
file signal. In the ‘fenex and Tops-20 versions, the function should return either that or <CHTYPE 
"777777000032" CIIARACTER> (-1 and control-Z), the latter being their standard end-of-file signal. 
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For a "PRIMI" CHAHKEL, the function am 
dispose of its argume 


st take one argument, which will be a CHARACTER. It can 
in any way it pleases, The value returned by the function is ignored. 


OPE *PRINT* *INT:* ,FCN> opens am internal output CHANNEL with ,FCN as its 
character-yabbler, 


1L1O. The "ti 1* Device: the ARPA Network 


HET" device is dif teres 


the only device besides "INT 


in many ways from conventional devices. In the ITS yersion, it is 

that docs not take all strings as its arguments to OPEN, and it must 
Al optional argument to specify the byte size of the socket. The format of a call to 
open a network socket is 


take an adit 


OPEN mocteistring local-socketdix foreign-sockettix *NET* foreign-hostitix byte-size:tix> 


mode is the mote of 4 
“PRINIB™ 


\e desired CHANNEL. This must be either "READ", "PRINT", "READB™ or 


# is the local sock 


ber. If it is -1, the operating system will generate a unique 
ver. If it is not, in the Tenex and Tops-20 versions, the socket number is 


foreign socket is the Forcign socket number. If it is 


this is an OPEX for “listening”. 


foreign-host is the Forel 


host number. If it is an OPEN for listening, this argument is ignored. 


bytesce is ional byte size. For "READ" or “PRINT* this must be either 7 (used by 
default) or 8. For "READB™ or "PRINTS", it can be any integer from 1 to 36 (used by default). 


In the ‘Tees and ‘Teps20 versions. OPE 
NET: ...%. in this ea 


can instead be given a STRING arguine 
the local socket number can be “directory-relative” 


of the form 


Like any other OPE 
be used like any 


WEL of a FALSE is returned. Once open, a network CHANNEL can 
wat FILE-LENGTH, ACCESS, RENAME, etc., cannot be done. 

1c. seeond-name, and directory-name slots in the CHANNEL are used for local 
J forcign Wost (as specified in the call to OPEN), respectively. The 
responding “real” slots are used somewhat differently. If a channel is OPENed with local socket 
real” first-name slot will contain the unique socket number generated by the operating 

¢ Foreign socket and host numbers of the answering host 

direciory-name slots of the CHANNEL when the Request For 


HEL, execpt 
The “argument™ Ciest-n 


socket. foreign soctet, a 


If a listening secket is OPEL 
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Au intercupt (chapter 21) can be associated with a "RET*-device CHANNEL, so t 
know that the Cl 


at a program will 


HEL has oF nceds data, according to its mode, 


There also exist sev 


al special-purpose 5 


IBRs for the *NET* device. These are described next. 


HA0.1, HETSTAIT 


returns a UVECTOR of three FIXes. The Fiest is the state of the con: 


ection, the second is a code 
ber of bits available on the 


specifying why a ¢ n was closed, and the last is the nu 


n for input. ‘The meaning of the state and close codes are installation-dependent and so 


1110.2. NETA 


CHEIACE networkehannel> 


accepts a ce 
FALSE if 


yection 10 a socket that is open for listening and returns its argument. It will retuen a 


ction is in the wrong 


1.10.3, NETS 


retuens its argument, after Forcia, 


any system-buffered network output to be sent. ITS normally 
does this every half second anyway. Tenex and Tops-20 do not do it unless and until NETS is called. 


NETS is similar to BUFOUT for normal CHANNELS, except that even operating-system buffers are 
empticd now 
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Chapter 12. Locatives 


iu MDL a facility for abtainin 


and working directly with objects which roughly 
«1 t “poiuters” in assembly language or “vals” in BCPL or PAL. In MDL, these are 
y Fnown as locatives (from “location") and are of several TYPEs, as mentioned below. 
Locatives exist to provide efficient means for altering structures: direct replacement as opposed to 


re-copying 


It is not p 
(for example. ai 4108) wh 


ible to obtain a locative to something 
is not part of any structure. It is possible to obtain a locative to any 


clement in any structured object in MDL -- even to associations (chapter 13) and to the values of 
ATOMs. steucturinys which are normally “hidden 


In the Following. the object eccupying the structured position to which you have obtained a locative 
Will be referred to ay the olsject pointed te by the locative. 


12.1. Obtaining Locatives 


12.11. LLoc 
LLOC stone erred 


ive (TYPE Loco, 


locative to iDentifier") to the LVAL of atom in env. If atom is not 

is optional, with the current ENVIRONMENT used by default. The 
pendent of future ce-bindings of atom. That is, IN (see below) of 
the same thing even if stom is rebound to something else: SETLOC (see 


locative rerursed ly 1 LOC is ind 
a 


it locative will retur 


jow) will af feet euty 


at particular binding of atom 


Since bi 


become unbou 


kept on a stack (tra Ia), 
at will Fetels up 
if a LOCO is valid 
ahappy 


Y attempt to use a Jocative to an LVAL which 
n error. (It breaks just like a TUPLE....) LEGAL? can, once agai 
Caution: <SET A €LLOC A>> creates a self-reference and can make 


be use: 
PR 
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12.1.2, GLOC 
| <GLOC atom pred> 
ative (1YPE LOCD) fo the GVAL of atom If atom has no GVAL slot, an error occurs, unless 


ven and not FALSE, in which ease 2 slot is created (chapter 22). Caution: <SETS 
| A <GLOC A>> creates a self-reference and can make PRINT very unhappy. 


12.1.3. AT 


Vils element in structured. NV is optional, 1 by default. The exact TYPE of 
| the locative returned depends on the PRINTYPE of structured: LOCL for LIST, LOCV for VECTOR, LOCU 
for UVECIOK, LOCS for SIRING, LOCB for BYTES, LOCT for TEMPLATE, and LOCA for TUPLE. If WV is 

tured> or fess than 1, of an OFFSET with a Pattern that doesn’t match | 
¢ locative is unaffected by applications of REST, BACK, TOP, GROW, 


greater than CLEUGTH 


ete. to structur 


12.4.4. GETPL and CETL 
KGEIPL Hemiany indicatorsany: dofault:any> 
returns a focative (TYPE LOCAS) to the association of item under indicator, (See chapter 13 for 


information about associations) If ne such association exists, GETPL returns EVAL of default. default 
is optional, #FAUSE () by default 


GETPL corresponds to GCTPROP 
corresponds to GE 


gst the association machinery. There also exists GETL, which 
ening either 2 LOCAS or a locative to the indicatorth element of a structured 
item. GETL is like AT if stom is a structure aud indicator is a FIX or OFFSET, and like GETPL if not. | 


12.2. LOCATIVE? 


This SUNK is a predicate thar tells whet 
<MEMQ <PRIMIYPE arc> "HELOCD LOCL ...J>. 


not its argument is ak 


heaper th: 
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12.3. Us 


 Locatives 


The following two SUBRs provide the means for working with locatives. They are independent of 
the specific TYPE of the locative. The notation locative indicates anything which could be returned 
by LLOC, GLOC, AT, GETPL or GETL 


12.3.1. 1N 


IN locative> 


returns the object to which focative points The only way you ean get an error using IN is when 
locative points tu an LVAL which has become unbound from-an ATOH. This is the same as the 
problem in referencing TUPLEs as mentioned in section 9.2, and it can be avoided by ic 
<LEGAL? foca> 
Example: 

<SET A 18 

1 

<IN <LLOC A>>s 

1 
12.3.2. SETLOC 

c any> 

returns any. after having made any the contents of that position in a structure pointed to by 


focative. The structure itself is not otherwise disturbed. An error occurs if locative is to a non- 
LEGAL? LVAL or if you try to put an object of the wrong TYPE into a PRINTYPE UVECTOR, STRING, 
BYTES, or TEMPLATE 


Example: 


<SET A (1 2.3928 
@ 23) 

<SETLOC <AT .A 2> HIDS 
"1 

AS 

(1 ar 3) 
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2.4. Note an Locatives 


You may have noticed that locatives are, strictly speaking, unnecessary: you can do everything 
locatives allow by appropriate use of, for example, SET, LVAL, PUT, NTH, ete. What locatives 
provide is generality 


Basically. how you obtained a locative is irrelevant to SETLOC and IN; thus the same program car 
play with GVALS, LVALs. objects in explicit structures, ete., without being bothered by what function 
it should usc to do so. This is particularly true with respect to locatives to LVALs: the Fact that they 

niges in binding can save a lot of fooling around with EVAL and 


are independe 
ENVIRONMENTS 
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Chapter 13. Association (Properties? 


There is a 


“associative” data storage and retrieval system embedded in MDL wh 
constructio: 


of data steuctuces wi 


h allows the 
SUBRs described in this 


arbitrary selectors. It is used via t 


chapter. 


13.1. Associ 


¢ Storage 


. 
| 
| 


13.1.1. PuTPROP 
<PUTPROP item:any indicator:any value:any> 

Cur property”) returns item. having associated value with item under the indicator indicator. 

13.1.2. pur 


<PUT stem:any indicatorsany valuesany> 


1 is identical to purirRoP, exeept that. if item is structured and indicator is of TYPE FIX of OFFSET, it 
does <SETLOC <AT item indicator? vslue>. In other words: an clement with am integral oelenee te 


stored in the structure itself. instead of in association space. PUT (like AT) will get an error if 
indicator is out of cange: PUTPROP will not. 


13.1.3. Removing Associations 


If PUTPROP is « 
argu 


gument, it removes any association existing between its item 
ment. If an association did exist. using PUTPROP in this way returns 
the value which was associated. If no association existed, it returns #FALSE () 


nent and its indicator arg 


ments which refer to association. can be used in the same way, } 


13 -19.13 Association (Properties) 


The MDI. Progral 


ig Language 12 


If cither stem or indicator cease to cxist (that is, no one was pointing to them, so they were garbage- 
collected), and no locatives to the association exist, then the association between them ceases to exist 


(is garbage-callected), 


13.2. Associative Retrieval 


13.2.1. GETPROP 


<GETPROP iten:any: indicatorieny expiany> 


(get property") returns the value associated w 
association. GETPROP ret 


item under indicator, if any. If there is no such 
s EVAL of exp (that is, exp gets EVALed both at call time and later). 


1. If not given, GETPROP returns #FALSE () if it cannot return a valve, 


Note: item and indicator in GETPROP must be the same MDL objects used to establish the association: 
that is, they must be =#7 10 the objects used by PUTPROP or PUT. 


13.2.2. GET 
<GET itom:any indicatorany exp:any> 


is the inverse of PUT, using NTH or GETPROP depending on the test outlined in section 13.12. exp is 
optional and used as in GETPROP. 


Examples of Association 


<SET L "(1 2.3 4)>8 
234) 

<PUT .L FOO “L ts a Tist.n>s 
234) 

<GET .L Foo>s 

“Lis a Vist.* 


P ‘aps 
234) 

<GETPROP .L 398 
'r4ty 

<GET .L 398 

3 
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<SET NODS 


° 
<PUT .N .L "list on 9 zero">S 
° 

<CET NW (1 2.3 428 

PFALSE (> 


ple failed because READ generated 2 new LIST — not the one which is L's LVAL. 


10.18 
“Vist on a zero* 


works because (227 .W 0> is teue. 


To associate something with the Nth pasiti 
it with <RCST structure N-1>, as in the followin, 


2 structure, as opposed to its Nth element, associate 


<PUT CREST .L 2> PERCENT 0.398 
34) 

<GET <2 .L> PERCENTOS 

FALSE () 

<GET <REST .L 2> PERCENTOS 
0.30000000 


Remember comments? 


<SET NILA BC ;*third eloment™ D E}>S | 
TAB CODE!) 

<GE1 <REST .W 2> COMMENTS 

“third element* 


The * in the <seT NW > is to keep EVAL from generating 2 new UVECTOR ("Direct ; 
Representation”), which wor uld be a necdless 
duplicate). A “to ‘nt ~ one attached to the entire object returned by READ -- is PUT on 
the CHANNEL in use. since there is no position in any structure for it. If no top-level comment 
follows the ob ject. READ removes the value (<PUT channel COMMENT} so anybody that wants to see a | 
top-level commuent must look for it after each READ 


id not have the comment on it (and whi 


If you need to have a structure with selectors in 
matrix that does not deserve 10 be linearized), associations can be cascaded to achieve the desired 
result. In effect an extra level of association maps two indicators into one. For example, to 
associate value with item under 1 aud indicstor-2 simultaneously: 


wore than one dimension (for example, a sparse 


<PUTPROP jndicator-1 indicator-2 1> 
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| <PUTPROP item <GLTPL indicator-1 indicator-2> value> 


| 13.4. Examin 


d together in a doubly-linked list, internal to 
weir order of creation, newest first. There are 
ain of associations, ASSOCIATIONS returns the first association 
the chain, or *FALSE () if there are none. NEXT takes an association as an argument and returns 

ENE association in the chain, or #FALSE () if there are no more. ITEM, INDICATOR and AVALUE 


take an association as an argument and return the item, indicator and value, respectively. 
Associations print 


#ASOC (item in 


Wicator value) 


(sic: only one 5). FNanple: the Following gathers all the existing associations into a LIST 


<PROG ((A <ASSOCIATI 
<COND (<NOT .A> *()) 
CGA ISHAPE LIST 
<FUNCTION () <COND (<SET A <NEXT .A>> A) 
(7 <HAPSTOP>)>9>))2> 


NS>)) 


tion (Properties) 
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Chapter 14. Data-type Declarations 


In MDL, it is possibic to declare the permissible range of “types” and/or structures that a 

alues or af nts or value may have. This is done usi 
(declaration”). A DECL is of PRIMTYPE LIST bi 
sed by the inter 


ATOM's 
a special TYPE, the DECL 
has a complicated internal structure. DECLs are 
cer to Find TYPE errors in function calling and by the compiler to generate more 


efficient code. 


There arc two hinds of DECLs ‘The first kind of DECL is the most 
DECL and is used most commonly to specify 
arge 


nmon. It is called the ATOM 
ie type/structure of the LVALs of the ATOMs in the 
LIST of a FUNCTION or aux LIST of a PROG or REPEAT. This DECL has the form: 


worce ¢ 


meedist Pattern ..-) 


where the pairing of a LIST of AlOMs and a “Pattern” can be repeated indefinitely. This declares the 
ATOMs in a fist to be of the type/siructure specified in the Following Pattern. The special ATOM 
VALUE, if it appears, declares the result of a FUNCTION call or PROG or REPEAT evaluation to satisfy 
the Pattern specified. An ATOM DCCL is useful in only one place: immediately following the 
argument LIST of a FUNCTION, PROG or REPEAT. It normally includes ATOMs in the argument LIST 
and ATOHs whose LVALs are otherwise used in the Function body. 


The second bind of DECI is rarely seen by the casual MDL user, except in appendix 2. It is called 
the RSUBR DECL. 11 is used to specify the type/structure of the arguments and result of an RSUBR oF 
RSUBR-ENTRY (chapter 19). It is of the following form: 


ADECL (*VALUE* Pattern 


tern...) 


"VALUE" precedes the specification of the type/structure of the value of the call to 
Ne remaining Patterns specify the arguments to the RSUBR in order. The full 
ion of the RSUBR DECL will be given in section 14.9. The RSUBR DECL is uset aly 
fone place: as an element of an RSUBR or RSUBR-ENTRY. 
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14. Patterns 


The simplest possible Pattern is to say that a value is exactly some other object. by giving that 
object. QUOTE, For example, to declare that a variable is a particular ATOM: 


#DECL ((X) *T) 


(Gectives shat. s1cla;abiaye 
BD this way. 
| whi 


ATOM T. When variables are DECLed as “being” some other object in 
7, and not ==7. The distinction is usually not important, since ATOMS, 
st comnnonly used uction, are ==? to each other if =? anyway. 


e test used is 


It is more common to want to specify that a value must be of a giv 
simplest non-specific Pattern, a TYPE name. For example, 
v iP 


n TYPE. This is done with the 


MDECL ((X) FIX (¥) FLOAT) 


X to be of TYPE FIX, and .¥ of TYPE FLOAT. In addition to the names of all of the built- 
cd TYPEs. such as FIX, FLOAT and LIST, a few “compound” type names are allowed: 


ANY allows any TYPE 


STRUCTURED allows any structured TYPE, such as LIST, VECTOR, FALSE, CHANNEL, ete. 
(appendix 3). 


LOCATIVE allows 
(el 


any locative TYPE, such as are returned by LLOC, GLOC, AT, and so on 


apter 12). 


APPLICABLE allows any applicable TYPE, such as FUNCTION, SUBR, FIX (), ete. (appendix 3). 


Any other ATOM can be used to stand for a more complex construct, if an association is 
established on that ATOM and the ATOM DECL. A common example is to <PUT NUMBER DECL 
*SOR FIX FLOATD> (see below), so that NUMBER can be used as a “compound type name’. 


The single TYPE name can be generalized slightly. allowing anything of a given PRIMTYPE, using 
the following constructia 


*DECL ((X) <PRINTYPE WORD> (Y) <PRIMTYPE LIST>) 


This constructi 
cond 


» consists of a two-clement FORM, where the first element is the ATOM PRIMTYPE, 
ame of a primitive type, 


The next step is to specify the elements of a structure. This is done in the simplest way as follows: 


< structureditype Pattern Pattern «..> 
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where there is a one-to-one correspondence between the Patterns and the elements of the structure. 
For example: 


#DECL ((X) <VECTOR FIX FLOAT>) 


declares .X to be a VECTOR having at Ieast two clements, the first of which is a FIX and the second = 
FLOAT. It is often convenient to allow additional elements, so that only the elements being used in 
the local neighbarhood of the DECL need to be declared. To disallow additional elements, a SEGHENT 


is used instead of » FORM (the “excl-ed™ brackets make it look more emphatic). For example: 


DECL ((X) !<VECTOR FIX FLOAT>) 


declares -X to be a VECTOR having exactly two elements, the First of which is a FIX and the second a 
FLOAT. Note that the Patterns given for elements can be any legal Pattern: 


PDECL ((X) <VECTOR CVECTOR FIX FLOAT>> (¥) <<PRIMTYPE LIST? LIST>) 


declares .X to he a VECTOR containing another VECTOR of at least two elements, and .Y to be of 
PRIMTYPE LIST, containing a LIST. In the case of a BYTES, the individual elements cannot be 
declared (they must be FIXes anyway), only the size and number of the bytes: 


PDECL ((B) <BYTES 7 3>) 


declares .0 to be a BYTES with BYTE-SIZE 7 and at least three elements. 


It is possible to say that some number of elements of a structure satisfy a given Pattern (or 


sequence of Patierns). This is called an "NTH construction” 


[ numberstie Pattern Pattern ... J 


states that the sequ 
given. For example: 


ce of Patterns which is REST of the VECTOR is repeated the number of times 


#DECL ((X) <VECTOR [3 FIX] FLOAT> (¥) <LIST [3 FIX FLOAT]>) 


=X is declare » three FIXes and a FLOAT, perhaps followed by other elements. .Y is 
declared to repeat the sequence FIX-FLOAT three times. Note that there may be more repetitions of 
the sequence in -¥ (but not in .X: the DECL specifies only the first six elements, 


For indefinite repetition, the same construction is used, but, instead of the number of repet of 
the sequence of Patterns. the ATOM REST is given. This allows any number of repetitions, from zero 
on up. For exau 


*OECL ((X) <VECTOR (REST FIX]> (Y) <LIST [3 FIX] [REST FIX]> 


aype De 
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A “REST construction” can contain any number of Patterns, just like am NTH construction: 


WOLCL C(x) <VECTOR [REST FIX FLOAT LIST]>) 


declares that .X Is a VECTOR w 


rein the sequence FIX-FLOAT-LIST repeats indefinitely. It does not 
{ <LEHGIN .X isan even multiple of three: the VECTOR can end at any point 


declare | 


A varia 


i on REST fs OFT (or OPTIONAL), which is similar to REST except that the construction is 
st iustead of indefinitely, and further undeclared elements can follow. For 


example: 
ADE CL COX) <VPCTOR LOPT FIX}>) 


doclares (hat .X is # VECTOR which is en 


pty or whose first element is a FIX. Only a REST 


nin can Fallow an “OPT construction 


} Note that the REST construction must always be the last element of the structure declaration, since it 
ure. Thus, the REST construction is different from all others 


Pattern it gives is RESTed off of 


gives a Pattern for the rest of the str 


Tu that it has an antimited range. No matter how many times th 


the structure. the remainder of the stewcture still has that Pattern 


This exhausts the possible si 


gle Pi 


crs that ean be given in a declaration. However, there is also 
a compound Pattern defined. It allows specification of several possible Patterns for one value: 


<OR Pattern Patt 


sents of the compound Pattern. 
sed as Patterns for elements of structures, and so on. 


Any non-compound Pattern can be included as one of the ci 


pally. compound Patterns can be 


HDECL ((X) COR FIX FLOAT> 
(Y) COR FIX <UVECTOR [REST COR FIX FLOAT> >>) 


The OR consiruction can be extended to any level of ridiculousness, but the higher the level of 
complex: wuustedness the less likely the conipiler will Find the DECL useful. 


y and comy 


At the highest Jewel, any Pattern at top level in an ATOM DECL can be enclosed in the construction 


" atom Pattern > 


Which explicitly declares the specially of 
SPECIAL 


ie ATONs) in the preceding LIST. speciaity can be either 
UNSPECIAL. Specialy is important only when the program is to be compiled. The word 
os From the contrat stack, which is called “special” in Lisp (Moon, 1974) because the garbage 
collector finds objects on it and modifies their internal pointers when storage is compacted. (An 

ne interpreter and is not accessible to programs ~ section 22.1.) In 
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an interpreted pro 


m all local Values are initially SPECTAL, because all bindings are put on the 

controf stack (hur see SPECIAL-HODE below). When the program is compiled, only values declared 

SPECIAL (which may ar may not he the declaration used by default) remain in bindings on the 

control stack, All others are taken care of simply by storing objects on the control stack: the ATOMs 

involved are uot needed and are not created on loading. So, a program that SETS an ATOM's local 

value for a to pick up must declare that ATOM to be SPECIAL. If it docsn't, the ATOM's 

g compiling. and the program that needs to refer to the ATOM will cither 

s binding. Usually only ATOMs which have the opposite 

‘CIAL-MODE are explicitly declared. The usual SPECIAL-MODE is 
SPECIAL declarations use this construction: 


Binding will go away durin 
get as 

Specialty from that of th 
UNSPECTAI., 0 typically © 


p-value error Hr refer to an erroneo 


DECK ((ACT) ¢SPECTAL ACTIVATION) 


explicitly declares ACT to he SPECIAL 


Most well-written, modular prog: 


» get all their information from their arguments and from 
GVALs. aust this they rarely use SPECTAL ATOMs. except perhaps for ACTIVATIONs and the ATOMS 
Whose IVAIs MIDI uses by default: INCHAN, OUTCHAN, OBLIST, DEV, SNH, NHI, NM2. OUTCHAN is 
& special case: the * that all conversion-ourput SUBRs are called with an explicit 
CHANNEL arg whether or not the program being compiled thinks so, For example. <CRLF> is 
compiled as hit were <CRLF .OUTCIAN>. So you may use (or see) the binding (OUTCHAN 
OUTCHAN) in ana ent LIST, bh ay appear. because that -- coupled with the 
Ustal UNSPECIAL declaration by default -- makes only one reference to the current binding of 
OUTCHAN andl stuffs th in a slot on the stack for use within the Function. 


wever edd that i 


14.2. Examptes 


PUECL ((Q) <OR VECTOR CHARNEL>) 
declares .9 to be cither a VECTOR or a CHANNEL. 


*DECL ((P QRS) <PRIMT 


= LIST>) 


declares -P. R, and .S all to be of PRINTYPE LIST 


PECL ((F) <FORM [3 ANY]>) 


declares .F 10 he a FORM whose length is at least three, containing object y old TYPE 
MDECL (CLL) CCPRINTYPE LIST> [4 <LIST [REST FIX]>}>) 


declares «LL to he of PRIMTYPE LIST, and to have at least four elements, each of which are LISTs of 
unspecified leugth (possibly empty) containing Fixes. 
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The MPI 


PECL (CVV) <VPCTOR FIX ATOM CHARACTER?) 


declares .VV 10 le a VECTOR with a 
ATOM, and CHARACTER 


Icast three elements. Those elements are, in order, of TYPE FIX, 


NEL CCL) €LAST ATOM [REST FLOAT]>) 


First clement iy an ATOM and the rest of whose elements are FLOATS. 
1 Teast ane element tong. 


dee 
Tt alsn says thar oti is 


bret (¢roO) <LTS: 


(rest '1 FIxp) 


le a LAST whose oud-positioned elements are the ATOM T and whose even-positioned 


HAR 

HME OW Ox) 

*DreL ((X) <VECTOR (1 FIXI>) 

HTX 1 O>> 

declares .X 1 he a VECTOR containing at least one FIX. The more restrictive [REST FIXJ would take 
excessive eherhiny time by the interpreter, because the REST of the VECTOR would be checked on 
each iteration of the HAPR. In this case both DECKS are equally powerful, because checking the First 
clement of all the RESIS of a structure eventually checks all the elements. Also, since the FUNCTION 
refers only 16 the First clement of X, this is as much declaration as the compiler can effectively tse. 
Gf this VICTOR always contains only FIXes, it should le a UVECTOR instead, for space efficiency. 


Then a [REST 1 IXT MCL would make the interpreter cheek only the UTYPE. If the FIXes cover a 
be even better. with a DECL of <BYTES n 0>.) 


I non-negative tange. then a BYILS mig 


<perTur Tract (i) 
SbECE (CW) <UNSPECTAL FIX>) 
<COWD (<O7 .H> 1) (ELSE <® .W <FACT ¢- .W 199>)>> 


declares .N to be wf TYPE FIX and UNSPCCTAL. T 


is specialty declaration ensures that. 
OF SPECIAL -HODE suring compiling. .W gets compiled inte a Fast conteol-stack reference. 


ndependent 


OG (CL (0) 
*DECL CCL VALUE) CUNSPECTAL <LIST [REST FIX}>> 
(H) CURSPLEIAL FIX>) 
COND (<O7 .N> CRETURH .L>)> 
<SCT L (<# 2M C1 19> #.4)> 
SUT W = LW 1D>> 
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Teyana’ dicclares L and N to be UNSPECTAL, says that .M is a FIX, and says that .L, along with 
the value returned. is a LIST of any length composed entirely of FIXes 


14.3. The DECI Syntax 


This secties 


ves uas-TNE productions for the MDL DECL syntax. In the following table MDL 


type-speeificrs are distinguished im th 
ect = «DEEL (dnetpes) 
dectprs ::= (wt 14st) pattern | deciprs deciprs 
atiist ise stom | atom artist 
Pattern ::= pat | <UNSPECIAL pat> | <SPECTAL pat> 
pat = unit | cOR unit... unie> 
unit = type 1 <PRIHTYPE fype> | atom | tany 
I AWY | STRUCTURED | LOCATIVE | APPLICABLE 
| kstruc eits> | <<oR struc ... struc? elts> 
I féstrue etts> | 1<<oR struc... struc> elts> 
1 <bstruc fix> | <bstrue fix fix> | 
1 febstruc tx fxd 
struc structured-type | <PRIMTYPE structured-type> 
| bstruc : BYIES | <pRIMTYPC ayTES> / 
elts pat | pat elts | 
1 Uie pat ... pat} 
I Cix pat -.> pat} eits | 
1 Copt pat... pat} 1 [REST pat ... pat] | 
| Lopt pat ... pat] [REST pat ... pat} 


opt fee OPT | OPTIONAL 
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14.4. Good pects 
There are some rules of thumb concerning “good” DECLs. A “good” DECL is one that is minimally 
offensive to the OfCL-checking mechanisin and the compiler, but that gives the maximum amount 


of information. It is. si 


nple To state what gives offense to the compiler and DECL-checking 
complewity. For example, a large compound DECL like: 


*DECL ((X) <OR FIX LIST UVECTOR FALSE>) 
is a DECL that the compiter will Find totally useless, It might as well be ANY. The more involved 
| the OR, the Jess information the compiler will Find useful in it. For example, if the function takes 
<OR LIST VECTOR UVECTOR>, maybe you should really say STRUCTURED. Also. a very general DECL 
indicates a very general program, which is not likely to be efficient when compiled (of course there 


is a trade-off ere). Narrow 
| to one TYPE still more. 


¢ DECL to one PRIMTYPE gives a great gain in compiled efficiency, 


Another situation to he avnided is ary large DCCL, even if it is perfectly steaightforward. 
te y ture which has a very specific DECL and is used all over your code. it 
might be better asa HEMTYPE (see below). The advantage of a NEWTYPE over a large explicit DECL is 
twofold. First, the entire structure must be checked only when it is created, that is, CHTYPEd fron 

its PRIMTYP. As a full DECL, it is checked completely on entering each function and on each 
| Feassigninent of ATOMS DECLed to be it. Second, the amount of storage saved in the DECLs of 
| FUNCTIONS and se on is large, not to mention the effort of typing in and keeping up to date several 

instances of the Full DECL 


14.5. Global pects 


14.5.1. GDECL and MANIFEST 


There are two ways to declare GVALs for the DECL-checking mechanism. These are through the 
FSUBR GDECL ("global declaration”) aud the SUBR MANIFEST. 
<GDFCL atomestist Pattern ...> 


GOECL allows the type/structure of global values to be declared in much the same way as local 
values. Example 


<GDECL (x) FIX (¥) <LIST FIXD> 


declares .X 10 be a FIX, 


and ,¥ to be a LIST containing at least one FIX. 


<HANIFEST atom atom ...> 
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MANIFEST takes as arguments ATOMS whose GVALs are declared to be constants. It is used most 
ATOMs are the names of offsets in structures. For example: 


<SEIG x 1> 
<MANIFEST X> 


+ the compiler 10 confidently open-compile applications of X (get 


rc). knowing that ,X will not change Any sort of object can be a MANIFEST value: if it does 
Hot get embedued in the compiled code, it is included in the RSUBR’s "reference vector”, for fast 
access. However, as a general rule. structured objects should not be made HANIFEST: the SETG will 


| 
} 
the first element of a | 


survive in the compiled version (for the use of new uncompiled programs), but uses of GVAL will 


instead refer to a distinct copy of the object in each RSUBR that does a GVAL. A structured object | 
should instead be GOECLed. 


An attempt to SETG a HANITFST ATOM will cause an error, unless either: 
() the ATOM was previously globally unassigned: 
(2) the old value is ==7 to the new value: oF 
(3) -REOCTINE is not FALSE. 


2. MANIFEST? and UNMANIFEST 
<HAWLFEST? atom> 
returns T if atom is MANIFEST, #FALSE () otherwise. 


| 
<UNMANIFEST atom atom ...> 


Femoves the MANIFEST of the global value of cach of its arguments so that the value can be changed. 


14.5.3. GBOUND? 
<GROUND? stom> 


Cglobally bound?) returns T if atom has a global value slot (that is, if it has ever been SETGed, 
MANIFEST, GDECLed. of GLOCed (chapter 12) with a true second argument), #FALSE () otherwise. 
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14.6. NEWTYPE (again) 


NEWTYPE gives the prograunuer another way to DECL objects, The third (and optional) argument of 
NEWTYPE iy a QUOTEU Hattern, If given, it will be saved as the value of an association (chapter 13) 
using the name of the HEWTYPE as the item and the ATOM DCCL as the indicator, and it will be used to 
check any object that is about to be CITYPEd to the NEWTYPE 


PC COMPLEX-HUMBER VECTOR ‘<<PRINTYPE VECTOR> FLOAT FLOAT>> 
creates a new TYME, with its First two elements declared to be FLOATs. If later someone types: 
| *COMPLEX-HUMBER [1.0 2) 
an error will result (the second element is not a FLOAT. The Pattern can be replaced by doing 


| anotticr HETYPC for the same TYPE, of by pulling a new value in the association. Further 
examples 


| <HEWFYPE FOO LIST *<<PRINTYPE LIST> FIX FLOAT [REST ATOMJ>> 


causes FOOs 10 conta 


a FIX and a FLOAT and any number of ATOMs. 
<NEWTYPE BAR LIST> 
<SET A BAR (#BAR () 1 1.2 GRITCH)> 


<uEWTY 


BAR LIST '<<PRIMTYPE LIST> BAR [REST FIX FLOAT ATOM]>> 


of a reer 


This is an examy sively DECLed TYPE. Note that €1 .A> does not satisfy the DECL, 
because it is empry was CHTYPEd before the DECL was associated with BAR. Now. even 
SCHTYPE <1 .A> <TYPE 1 .A>D> will catise an error. 


<<PRINTYPE ...> ...> con! 
See what happens otherwise: 


ruction was used, in order to permit 


<NEWTYPE OOPS LIST *<LIST ATOM FLOAT>>S 
ors, 

<SET A CCHTYPE (E 2.71828) OOPS>>S 
OOPS (E 2.71828) 


Now <CHTYPE .A OOPS> will cause an error 


nfortunately, you must 


<CUTYPE <CHTYPE .A LIST> ooPs>s 
voors (f 2.71078) 
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14. yg DECL Checking 


There are several SURRS 
checking mechanism. 


nd FSUBRs in MDL that are used to contro! and interact with the DECL- 


14.7.1, OF CL-cuFeK 


This © 


uplex checking mechanism eam get 
only used DECL-ori 
DECL-cheeking mechanism, 


e way during debugging. As a result, the 
ted SUBR is DECL-CHECK. It is used to enable and disable the entire 


<DECL-CHECK falze-or-any> 


If its single argument is non-FALSE, DECL eh 


ching is turned on: if it is FALSE, DECL checking is 
J off, The previous state is returned as a value. If no argument is given, DECL-CHECK returns 
the current state, In an initial MDL DECL checking is o 


When DECI checking is on, the DECL of an ATOM is checked each time it is SET, the arg: 
results of calls 10 FUNCTIONS, RSUBRs, and RSUBR-ENTRYs are checked, and the values return 
PROG and REPEAT are checked. The same is done for SETGs and, in particular, attempts to change 
MANIFEST clnhal values. Attempts to CHTYPE an object to a NEWTYPE (if the NEWTYPE has the 
optional DECL) are also checked. When DECL checking is off, none of these checks is performed, 


14.7.2. SPFCTAL-CHECK and SPECTAL-HODE 
<SPECIAL-CHECK false-or-any> 


controls whether or not SPECIAL checking is performed at run time by. the interpreter. It 
Off. Failure to dectare a 


js initially 
ATOH to be SPECIAL when it should be will produce buggy compiled code. 


<SPCCTAL-MODE specialty:atom> 


sets the declaration used by default (For ATOMS not declared either way) and returns the previous such 
declaration. of the current such declaration if no argument is given. The initial declaration used by 
default is UNSPECTAL 


14.7.3. GET-DECL and PUT-DECL 


GET-DECL and PUI-PLCL are used to examine and change the current DECL (of either the global or 
the focal value) of an ATOH. 


GET-PEECL foca> 
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returns the DICL Pattern (if any. otherwise #FALSE ()) associated with the global or local value slot 
of an ATOM. For example: 


<PROG (x) 
DECK ((X) SOR FIX FLOAT>) 


<GET-DECL <LLOC x>> 
> 


would return COR FIX FLOATS as 
the use 6 


result of the application of GET-DECL. Note that because of 
LbOc (or GLOC. For global values) the ATOM being examined must be bound: otherwise you 


SIU E CT an creott This cau tse gotten around by testing first with BOUND? (or GBOUND?, or by giving 
GLOC a second argument whieh is not FALSE). 


If the stot being examin 
returned, If the value 


‘dis the global slot and the value is MANIFEST, then the ATOM MANIFEST is 
cing examined is not DCCLed, #FALSE () is returned. 


<PUT-DECL locd Patlern> 


makes Patrorn he the PECL Cor the value and returns focd. 
must satisfy the new Pattern. put-DECL 
object to correspond to chan 
MANIFEST of #FALSE () 


If <DECL-CHECK> is true, the current value 
is normally used in debugging, to change the DECL of an 
+ in the program. Note that it is not legal to PUT-DECL a “Pattern” of 


14.7.4. DECL? 
<DECL? any Pattern> 
Specifically checks any against Pattern. For example: 


<DECL? ‘£1 2 3] ‘<VECTOR CREST FIX}>>s 


q 
SDECL? "£1 2.0 3.0] *<vECTOR [REST FIX]>>S 
HPALSE () 


14.8. or 


al 


OFFSET is essentially a FIX with a Pattern attached, considered as an APPLICABLE rather tha 
mber. An OFFSET allows a program to specify 


the type of structure that its FIX applies to. 
make debugging considerably easier: they will 
so help the compiler generate more efficient code. 


OFFSETS. like DUCIs — if used properly ~ can 
eventually 
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The SUBR OFFSET takes two arguinents, a FIX and a Pattern, aud returns an object of TYPE and 
PRINTYME OFFSET. Aw OFTSCT, like a FIX, may be given as an argument to NTH or PUT and may be 
applied to arguinents. The only difference is that the STRUCTURED argument must match the 
Pattern contained in the OFFSET, of an error will result. ‘Thus: 


<SEIG [OO <OFFSET 1 *<CHANHEL FIX>>>8 

KCOFPSET 1 *<CHANNEL FIX>> | 
<FOO , JHICHANDS 

1 

<roo <r 
AERROR® 
ARG-WRONG-TYPE 

nt 

UISICHING-AT-LEVEL 2 PROCESS 1 


0T >>. 


Note: when the compiler gets around to understand! 


ng OFFSETs, it will not do the right thing with 
them unless they are MANIFEST. Since there's no good reason not to MANIFEST them. this isn't» 
problem, 


The SUBR INDEX, given an OFFSET, returns its FIX 


<INDEX ,FOO>s, 
1 


GET-DECL of an OFFSET returus the associated Pattern: PUT-DECL of an OFFSET and a Pattern returns 
a new OFFSI7 with the same INDEX as the argument, but with a new Pattern: 


<GET-DECL .FOO>s 
<CHARUEL FIX> 

<PUT-DFCL .F00 OBLIsT>S 
XCOFFSET 1 OBLIST> 

-FOOS 

ACOFFSET 1 *<CHARHEL FIX>> 


An OFFSET is not a structured object, as this example should make clear. 


14.9. The RSUDR DECK 


The RSUDR DFCL is similar to the ATOM DECK. 
and value rather than ef specific ATOMS 
argu 


+ except that the declarations are of argument positions 
Patterns can be preceded by STRINGs which further 


ieunt (or value) 
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picst RSUNR DECL is for an RSUBR or RSUGR-ENTRY (chapter 19) which has all of its 
rents evaluated and returns a DECLed value, For example: 


*DECL (*VALUE™ FIX FIX FLOAT) 


declares that there are two arguments, a FIX and a FLOAT, and a result which is a FIX. While the 
STRING "VALUE" is not constrained to appear at the front of the DECL, it does appear there by 


custom, It need not appear at all, if the result is not to be declared, but (again by custom) in this 
ease it is ustally dectared ANY 


If any 


yMiuents are optional, the STRING *OPTIONAL™ (or *OPT*) is placed before the Pattern for 
the First opt 


al argument: 


*DECL ("VALUE™ FIX FIX "OPTIONAL" FLOAT) 


If any of the arguments is not to be evaluated, it is preceded by the STRING “QUOTE 
#UECL ("VALUE* FIX "QUOTE FORM) 


went. whieh is not EVALed. 


if iets are to be evaluated and gathered into a TUPLE, the Pattern for it is preceded by 
the STRING "TUPLE™ 


DECK (*VALUE™ FIX "TUPLE* <TUPLE [REST FIX]>) 


If the arguments are to he uneva 
“argument’, th 


ted and gathered into a LIST, or if the calling FORM is the only 
Pattern is preceded by the appropriate STRING: 


PDECL (“VALUE* FIX "ARGS LIST) 


#DECL (*VALUE™ FIX "CALL* <pRI 


PE LIST>) 


Tu every case the special indicator STRING is followed by a Pattern which describes the argument, 


even though it may sometimes produce fairly ludicrous results, since the Pattern for "TUPLE" always 
must be a TUPLE; for *ARGS", a LIST; and for "CALL", a FORM or SEGHE! 


149 Data-type Declarations 


ar 


138 The MDL Programming Language 


Chapter 15. Lexical Blocking 


Lexical. or static. blocking is another means of preven 
was dynamic blocki 
blocking 


ing identifier collisions in MDL. (The first 
binding and ENVIRONMENTS.) By using a subset of the MDL lexical 
jcture” of such languages as Algol, PL/I, SAIL, etc, can be 


rs to be rather complex. a short discussion of the basic problem lexical 
blocking solves and MDL’s basic solution will be given first 


ATOMS are identifiers, It is 1 
with the unique identifier you 
the PNAIEs of all ATOMS to be « 
you typed two 


ial that whenever you type an ATOH, READ should respond 
Wish to designate. The problem is that it is unreasonable to expect 

ique. When you use an ATOH A in a program. do you mean the A 
inutes ago, the A you used in another one of your progeams, or the A used by some | 


library program? 


Dynamic blocking (pushing down of LVALs) solves many such problems. However, there are some 
which it docs not salve -- such as state variables (whether impure or pure). Major problems with a 
system having only dynamic blocking usually arise only when attempts are made to share large 
numbers of significant programs among many people. 


The solution used in MDI. is basically as follows: READ maintain at least one table of ATOMs to 
guarantee any uniqueness... Se, MDL allows many such tables and makes it easy for the user to 
specify which one iy wanted. Such a table is an object of TYPE OBLIST (“object list”), All the 
complication which follows arises out of a desire to provide a powerful, easily used method of 
working with ODLISTs, with reasonable values used by default, 
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OBLISTs 


‘An OBLIST is of PRI 
by a hash codi 
about ONLISTs as such 


YPE LIVECTOR with UTYPE LIST; the LISTs hold ATOMs. (The ATOMs are ordered 
PHANEs: each LIST is a hashing bucket) What follows is information 


15.2.1. OBLIST Naj 


very mermally coy 
the OBLIST under 4 


stituted ODLIST has a name. The name of an OBLIST is an ATOM associated with 
© Indicator OBLIST. Thus, 


<GEIPROP obs OBLIST> 


<GET opviet ONLIST> 


returns the name of oby 


ilarly. every ame of an OBLIST is associated with its OBLIST, agai 
y ie: 


i under the 
OBLIST, so that 


<GETPROP obtist-namezatom OBLIST> 


«GET ob 


t-name:stom OBLIST> 


returns the OBLIST whose n 


ne is eblizl-name. 


Since there is nothing special about the association of OBLISTs and their names, the name of an 
OBLIST can be changed by use of PI hon the OBLIST and its name. It is not wise to 
change the OBLIST association w changing the name association, since you are likely to 
confuse READ and PRINT terribly 


You can also use PU or PUTPROP to remove the association between an OBLIST and its nan 
completely. If yeu want the OBLIST to go away (be garbage collected). and you 


ant to keep its 


ame around. this must be done: otherwise the association will force it to stay. even if there are no 
other references to it. (If you have no references to either the name of the OBLIST (an ATOM — 
including a TYPE ame -- points to its OBLIST), both of them - and their association — will go away 


Without your having to F 


ave the association, of course.) It is not recomn 
the name of an ODLTST without having it go away. since 


nded that you remove 
hen ATOMS in that OBLIST will PRINT the 
ODLIST .. which is defeating the purpose of this whole exercise. 
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15.2.2. HOBLIS1 
<HOBLIST atom fix> 


Cmake oblist) createy and returns a new OBLIST, containing no ATOMS, whose name is afom, unless 
there already exists an OOLIST of that name. in which case it returns the existing OBLIST. fiw is the 
size of the OBLIST created -- the number of hashing buckets. fix is optional (ignored if the OBLIST 
already exists), 13 hy default. If specified, fix should be a prime number, since that allows the 
hashing to work better 


15.2.3. OBLIST? 
SOBLIST? atomn> 


returns #FALSE () if atom is not in any OBLIST. If atom is in an OBLIST, it returns that OBLIST. 


15.3. READ and OBLISTS 


¢ explicitly told to look up an ATOM in a pari 
sists Of the characters !- (exclamation-po 
Followed by the name of the OBLIST. For example, 


icular OBLIST by giving the ATOM a trailer. 
dash) following the ATOM, immediately 


At-o8 


specifies the 


Hique ATOM OF PUAHE A which is in the OBLIST whose name is the ATOM OB. 


Note thar the name of the OBLIST must follow the !- with 


no separators (like space. tab, carriage- 
tte). There is a name used by default (section 15.5) which types out and is typed in’as 
!-separator. 


‘Trailers can le used recursively: 


B1-A!-o8 


specifies th five ATOM of PHANE B which is in the OBLIST whose name is the unique ATOM of 
PHAME A which is in the ORLIST whose name is 08. (Whew!) The repeti nated via the 
look-up and insertion described below 


If an ATON with a given PHANC is not found im the OGLIST specified by a trailer, a new ATOM with 
that PNAME is created and inserted inte that OBLIST 


ame is given in a trailer docs mot exist, READ creates one, of length 13 buckets. 
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If trailer notation is not used (the “normal” case). and for an ATOM that tern 
looks up the PHALIE of the ATOM ina LIST of OBLT 


ates a trailer, READ 
the LVAL of the ATOM OBLIST by default. This 
p starts with 1 .OBLIST> and continues until .OBLIST is exhausted. If the ATOM Is not 
READ usually inseris it info <1 .OBLIST>. (It is possible to force READ to use @ different 
cut of the LIST of OBLISTs for new insertions. If the ATOM DEFAULT is in that LIST, the 
OBLIST Following that ATOM will be used.) 


15.4. PRINT and Ob1 ISIS 


When PRINT is given an ATOM to output, it outputs as little of the (caller as is necessary to specify 

the ATOH uniquely to READ. "Chat is, if the ATOM is the fiest ATOM of that PNAME which READ would 

Find in its Hormal look-up iu the current .OBLIST, no teailer is output. Otherwise, {- is output and 
tame of the OBLIST is recursively PRIWled. 


Warni 


KE there are obscure cases, which do not oecur in normal practice, for which the PRINT trailer 
recursion docs not terminate. For instance, if an ATOM must have a trailer printed, and the name of 
the OBLIST is an ATOM in that very same OBLIST, death. Auy similar circular case will also give 
PRINT a hernia. 


15.5. 


itial State 


In an initial MDL. .00 


1ST contains two OBLISTs. <1 .OBLIST> initially contains no ATOMs, and <2 
OBLIST> contains all the ATOMS whose GVALs are SUBRs or FSUBRs. as well as OBLIST, DEFAULT, T 
ete. It is difficult to lose teack of the latter: the specific trailer !~sep 
reference to (TST. In addit 
that OBLIST 


ator will always cause 
jon. the SUGR ROOT, which takes no arguments, always returns 


The name of <ROOT> is ROOT; this ATOM is in <ROOT> and would cause infil 
it not for the use of 
INITIAL! = ), 


je PRINT recursion were 
stor. The name of the initial <1 .OBLIST> is INITIAL (really 


The ATOH OBLIST aiso | 


GVAL. ,OBLIST is initially the same as .OBLIST; however. ,OBLIST 


Hot affected by the SUIRS used to manipulate the OBLIST structure. It is instead used only when 


In the case of an ertor, the curren 


LIST is checked to sce if it is “reasonable” ~ that is, contains 
Hothing of the wrong TYPE. (It Is reasonable. but not standard, for .OBLIST to be a single OBLIST 
instead of # LIST of them.) If it is reasonable, that value stays current. Otherwise, OBLIST Is SET to 
OBLIST. Note that changes made to the OBLISTs on ,OBLIST -- for example, new ATOMs added — 
remain, If even .C is unreasonable. OGLIST is SCT and SETGed to its initial value. <ERRET> 
(section 16.4) always assumes that .OBLIST is unreasonable. 
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Three other OBL1STs exist in a virgin MDL: their names and purposes are as follows: | 
ERRORS! ~ contains ATOMS whose PHAHES are used as error messages. It is returned by <ERRORS>. | 


INTERRUPIS!~ is used by the interrupt system (section 21.5.1), It is returned by 
<INTERRUPTS>. 


MUDDLE! is used infrequently by the interpreter when loading compiled progra’ 
references to locations with 


sto fix up 
the interpreter. 


¢ OBLISTs in an initialized MDL (Leb! 


The pre-tnad 
1979). 


g of compiled programs may create oth 


BLOCK and EDI OCK 


These SUBRs are 
Blocking (and in 


Ingous to b 
ether way) 


and end 


u Algol, 


in the way they manipulate static 


BLOCK fcok-upstist-of-obs 


returns its argument after “pus! 
the current LVAL. You usually w: 


ig” the current LVAL of the ATOM OBLIST and making its argument 
<ROOT> to be an element of /ook-up, normally its last 


<ENDBLOCK> 


“pops” the LVAL of the ATOM OBLIST and returns the resultant LIST of OBLISTs. 


Note that this 
application, bind: 


“pushing” and “popping of .OBLIST is entirely independent of functional 


ith Lexical Blocking 


15.7.1. READ (again) 


<READ channel cof-routine look-up> 

This is a fuller call to READ. look-up is an OBLIST or a LIST of them, used as stated in section 15.3 

fo look up AlOts and insert them in OBLISTS If it is not specified, .OBLIST is used. See also 
WW 17.1.3 For other arguinents. 
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15.7.2. PARSE and LPARSE (again) 


SPARSE string radivtie look-up? 


as was previously mentioned, applics READ's algoritls 


to siring and returns the first MDL object 
resulting. This includes looking up prospective ATOMs on fook-up, if given. or .OBLIST. LPARSE em 
be called in the same way. See also sections 7.6.6.2 and 17.13 for other arguments 


/ 15.7.3, Looxur 
LOOKUP string oblist> 
| returns the ATOM of HHA 


#FALSE (). If sfrins wo 
one OBLIST instea 


NE tring in the OBLIST oblist, if there is such an ATOM: otherwise, it returns 


Id PARSE into an AIOM anyway. LOOKUP is faster, although it looks in only 
f a LIST of them, 


15.7.4. ATOM 
<ATON string> 


| ereates and returns a spanking Hew ATOM of PNANE string which is guar: 
| oaList 


jeed not to be on any. 


| An Ato! 


15.7.5. REMOVE 


| <REHOVE strins ob) 


Femaves the ATOM of 


PHANE string from oblist and returns that ATOM. If there is no such ATOM, 
REMOVE F 


Hens #FALSE (). Also, 


<REHOVE 


Femoves atom from its OBLIS1, if it is on one. It returns atom if it was on an OBLIST; otherwise it 
returns #FALSE () 


15.7.6. INSERT 


KINSERT string-or-a 
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creates an ATOM of PHAME string. inserts it into oblist and returns it. If there is already an ATOM with 
the same PHANE as stom in oblist, an error occurs. The standard way to avoid the error and always 
get your 


OR <LOOKUP string oblist> <INSERT string oblist>> 


As with REMOVE, INSERT can also take an ATOM as its First argument; this ATOM must not be on any 
OBLIST -- it must have been REMOVEG. or just created by ATOM — else an error occurs. The OBLIST 
1 is never optional. If you would like the new ATOM to live in the OBLIST that READ would 

«cau CPARSE slring> instead. 


15.7.7. PuAnE 
<PHANE atom> 


returns a STRING (newly created) whic 
PNAME is mi 


is atom's PAME (printed name"). If trailers are not needed, 
Is faster than UNPARSE on atom. (In Fact UNPARSE has to go all the way through the 
ce. the First time to sce how long a STRING is needed.) 


15.7.8. SPHANE 


SPNAME ("shared printed name") is identical to PNANE, except that the STRING it returns shares 
storage with wtoo: (appendix 1), which is more efficient if the STRING will not be modified. PUTting 
to such a STRING will cause an error. 


15.8. Ex 


maple: A. 


Jution to the INC Problem 


What follows is an exa 
available” ATOMS aud “local 
syster 


ple of the way OBLISTs are “normally” used to provide “externally 
ATOMs which are not so readily available externally. Lebling (1979) 
way to accomplish the same thing and more. 


<MOBLIST INCO 1> 
i"Create an OBLIST to hold your external symbols. 
Its mame is INCO!-INITIAL!- .* 


INC!~1nCO 


:"Put your external symbols into that OBLIST. 
If you have many, just write them successively." 
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<BLOCK (<MOBLIST INCI!-INCO 1> <GET INCO OBLIST> <ROOT>)> 

i :"Create a local OBLIST, naming it INCI!-INCO, and set up -OBLIST for 
reading in your program. The OBLIST INCO Is included in the BLOCK so 

that as your external symbols are used, they will be found in the 

right place. Mole that the ATO INCO is not in any OBLIST of the 

BLOCK; therefore, trailer notation of !-INCO will not work within the 

current BLOCK-FNDGLOCK pair 


<DEFINE Ine sTINC 4s found in the IvicO OBLIST.= 
i) 3"A is not found and 4s therefore put into INCI by READ.” 
ECL ({VALUE A) COR FIX FLOAT>) 
<SET .A <* ..0 19> STAI] other ATOHs are found tn the ROOT." 


<enpaLock> 


This example is rather te it contains all the is 


\es, of which there are three. 


‘The first idea is that you should create two OBLISTs. one to hold ATOMS which are to be known to 
other users (HCO). and the other to hold internal ATOMS which are not normally of interest to others 
(INCI). The case aliove has one ATOM in each category. 


Second. INCO is explicitly used without trailers $0 that surrounding BLOCKs and ENDBLOCKs will have 
ns INCO will be in the OBLIST desired by the user: INC will be in INCO, and the 
ser can refer to it by saying INC!-INCO; INCI will also be in INCO, and can be referred to in the 
same way Ais really A!-INCI!-INCO. The point of all this is to structure the nesting of 
OBLIsTs. 


Finally. if for some reason (like saving storage space) you wish to throw INCI away. you can follow 
the ENDBLOCK with 


<REHOVE “IHCI™ <GET INCO OMLIST>> 


and thus remove all references to it. The abi 
OBLIST references 


ty to do such pruning is one reason for structuring 


Note that, ev 
saying somethi 


after remoy 
oF the Form 


ng INCI, you can “get A back” ~ that is, be able to type it in — by 


INSERT €1 €1 ,THCH-INCO>> 1 .OBLIST>> 


thereby grabt 
reets the 


¢ A out of the structure of INC and re-insert 
mic collision caused by <INC!~INCO A>. 


10 an OBLIST. However, this 
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Chapter 16. Errors, Fram 


» ote. 


16.1. LISTEN 


This SUBR takes an mber of arguments. It first checks the LVALs of IHCHAN, OUTCHAN, and 
OBLIST for reasonability and terminal usability. In each case, if the value is unreasonable, the ATOM 
is rebound to the corresponding GVAL, if reasonable, or to an invented reasonable value. LISTEN 
then does <TTYECHO .INCHAN T> and <ECHOPAIR .INCHAN .QUTCHAN>. Next, it PRINTs its 
arguments, then PRINTS 


LISTENING-AT-LEVEL / PROCESS p 


where / is an integer (FIX) which is incremented each time LISTEN is called recursively, and p is an 
integer identifying the PROCESS (chapter 20) in which the LISTEN was EVALed. LISTEN then does 
APPLY <VALUE RCP>>, if there is one, and if it is APPLICABLE. If not. it applies the SUBR REP 
(without making a new FRAME -- see below). This SUBR drops into an infinite READ-EVAL-PRINT loop, 
which can be left via ERRET (section 16.4). 


The standard LISTEN loop has two features for getting a handle on objects that you have typed in 
and MDL has typed out. If the ATOM L-INS has a local value that is a LIST, LISTEN will keep 
Fecent inputs (wha! READ returns) in it, most recent first. Similarly, if the ATOM L-OUTS has a local 
value that is 4 LIST, LISTEN will keep recent outputs (what EVAL returns) in it, most recent first. 
The keeping is done before the PRINTing. so that “S does not defeat its purpose. The user can 
decide how much to keep around by setting the length of each LIST. Even if L-OUTS is not used, 
the atom LAST-OUT is always SET to the last object returned by EVAL in the standard LISTEN loop. 
Example: 


<SET L-INS (NEWEST NEWER NEW)>S 
(NEWEST NEWER NEW) 

L-INSS 

(.L-INS NEWEST NEWER) 

<SET FOO 6995 

69 . 
<SET FIXIT <2 .L-INS>> s"orab the Vast input"s 

<SET FOO 69> 
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-L-INs 
(.L-1MS <SCT FIXIT ¢2 .L-INS>> <sET Foo 69>) 
<PUI .FIXIT 3 10595 

<SET FOO 105> 

<EVAL .FIXITDS 

10s 

-L-1Nss 

(.L-INS CEVAL .FIXIT> ¢PUT .FIXIT 3 105>) 


16.2. ERROR 


‘This SUGR is the same ay LISTEN, except that (1) it generates an i 
and (2) 11 PRINTS *FRROR* before PRIN 


terrupt (chapter 21), if enabled, 


ig its arguments, 


When any SUDR nF FSUBR detects an 
wrong TYPT 


jomalous condition (for example, its arguments are of the 


it cally ERROR with at least two arguments, including: 


(1) an AION whose PHAHE describes the problem, normally from the OBLIST ERRORS! - (appendix 


(2) the ATOH that names the SUBR or FSUBR, and 


(3) any other information of interest 

and then returns whatever the eall te ERROR returns. Exception: a few (for example DEFINE) will 
take further action that depends on the value returned. This non-standard action is specified in the 
error message (first ERROR argument 


16.3. FRAME (the 1 
A FRAN! is the object placed on a PROCESS’s contro! stack (chapter 20) whenever a SUBR, FSUBR, 
RSUBR, or RSUER-EWIRY (chapter 19) is applied. (These objects are herein collectively called 
*Subroutines”) It contains informatio: 


describing what was applied, plus a TUPLE whose elements 
pplicd. Hf any of the Subroutine’s arguments are to be 
the FRAME is generated. 


eo aren » the Subroutine 


A FRAME is an anomalous TYPE in the following ways: 


G) Tt cannet be 


ped in. It cam be generated only by applying = S 


(2) It docs Hot type out in any standard format, but rather as #FRAHE followed by the PNAHE of 


the Subroutine applied. 
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16.3.1. ARGS 
<ARGS frame> 


Carguments)) returns the argument TUPLE of frame. 


16.3.2. FUNCT 
FUNCT feame> 


(Cfunction™) cetens the ATOM whose G/LVAL is being applied in frame. 


16.3.3. FRAME (the SUDR) 


FRAME fre 


CeaUEtts tlhe FRANC stacked before frame or, if there is none, it will generate an error. The oldest 
(lowest) TRAIL that can be returned without error has a FUNCT of TOPLEVEL. If called with me 
arg ts. FRAME returns the topmost FRAME used in an application of ERROR of LISTEN, which wae 
bound by the interpreter to the ATOM LERR\ !-INTERRUPTS ("last error") 


16.3.4. Examples 


Bay You have gotten an error. You can wow type at ERROR's LISTEN loop and get things EVALed. 


For example. 


<rUNCT <FRANED>S 
FRROR 
<FUNCT CFRAHE CFRAHED>>S 
the-nawe-of-the-Subroutine-which-called-ERROR:atom 
<ARGS <FRAME <FRAME>>9$ 
‘ument<-to-the-Subroutine-which-called- 


the RORtuple 


16.4. ERRET 
SERRET any: frame> 


Far return”) (1) causes the control stack to be stripped down to the level of frame, and 
wit Is that the application which generated frame is forced to return 


This SUAR ( 
(2) then retwens The net « 
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any. Additional si 


effects that would have happened in the absence of an error may not have 


happened. 

| The secrnd argument to ERRET is optional, by default the FRAME of the last invocation of ERROR or 
Listen 

| Tf ERREY iy called with un arguments, it drops you all the way down to the bottom of the contre! 
stack ~ before the level LISTEN loop ~ and then calls LISTEN: Av always LIGIER Tee coe 


MDL is recept 
Examples: 


<" 3 <a Ios 


| ERRORS 
| ARG-WitOUG- TYPE 

LISTENTUG-AT-LCVEL 2 PROCESS 1 
| ARGS <FRANE <FRAMED>>S 

[a 1} 

<ERRET 598 This causes the + to return 5.* 


15 finally returned by the =* 


Note that when you are in a call to ERROR, the most recent set of bindings is still 
means that you ¢ 


effect. Thi 
" examine values of duminy variables while still in the error state. For example, 


SDEFINE F (A "AUX" (B “a string")) 
*DECL ((VALUE) LIST (A) STRUCTURED (8) STRING) 
(.0 <REST .A 2>) ;"Return this LIST.* >s 
F 
<F C1) 
=ERROR™ 
001 -oF -noU 
REST 
I AT-LEVEL 2 PROCESS 1 
as 
a 
| BS 
<ERRET '(5)> 5 “Make the REST return (5).*S 


("a string* (5)) 
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REIRY 


RETRY frame> 


Trae Lhe control stack 10 be stripped down just beyond /rame, and then causes the Subroutine call 
Ural Senerated franc tm be done again. frame is optional, by default the FRAME of the last Invocation 
Of, ERROR or LISTEN. RETRY differs from AGAIN in thal (I) it is not Intended to be used tn progran 

(2) Ht can retry any old treme (any Subroutine call). whereas AGAIN requires an ACTIVATION (PeoG ee 
REPEAT of "ACI" (3) if it cetries the EVAL of 2 FORM that makes an ACTIVATION, it will cause 
rebinding i LIST, 


16.6. unwinD 


PeMEND is an TSUBR that takes two arguments, usually FORHs. It EVALs the first one. and, if the EVAL 


Doncloead ranally. the value of the EVAL call is the value of UNWIND. If, however, during the EVAL « 
aratncal feturn attempts to return below the UNWIND FRAME in the control stack? the second 
ae tinet {U_EvALed. its value is ignored. and the non-local return is completed. The second 


iat Cualuated in the environment that was present when the call to UNWIND was made. This 
ing wp data bases that are in inconsistent states and for closing 
Hay le left around. FLOAD sets up an UNWIND to close its CHANNEL if the 
out Finishing the FLOAD. Example: 


facility is useful for cte 
temporary CHANHELS that 
User attempts 10 CRRET wit! 


DEFINE CLEAN ACT (*AUX* (C COPEN *READ™ “A FILE*>)) 


#OECL ((C) <OR CHANNEL FALSE> ...) 
<couD (.¢ 
<UNWIND <PROG () ... <CLOSE .¢>> 


<CLOSE .€>>)>> 


16.7. Control-G (76) 


WLPINE conteokG (6. <ASCIT 7>) at MDL causes it to act Just as if an error had occurred in 
saialcrer was currently being dene. You can then examine the values of variables ae choc, 
Seaen we HY applying ERRET to one argument (which is ignored), RETRY a FRAME lower on the contol 
stack, or flush everything by applying ERRET to no arguinen 
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rol-S (45) 


Typing controlS (*S, CASCIT 19>) ar MDL causes it to stop what is happening and return to the 


FRAME .LERR\ !-INTERRUPTS, returning the ATOM T. (In the Tenex and Tops-20 versions, “O also 
has the same effect.) 


16.9. ovcrrLow 


<OVERFIOW ¢2 


se-or-any> 


There is one error that ea 


disabled 


uumeric overflow an 


underflow caused by the arithmetic 
SUBRs (+, -, . /) The SUBR OVERFLOW takes one argument: if it is of TYPE FALSE, 
tunder/overflow errors are disabled: otherwise they are enabled. The initial state is enabled. 
OVERFLOW returns T or #FALSE (), reflecting the previous state. Calli argu 
returns the current state, 
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Chapter 17. Macro-operations 


17.1. READ Macros 


nd 2% 


ITA Ka 


The tokens % 
similar to PL/Vs. 


interpreted by READ in such a way as to give a “macro” capability to MDL 


Whenever READ encounters a si 


le % ~ anywhere, at any depth of recursion — it immediately, 
Mithout looking at the rest of the input, evaluates the object following the %. The resell of sit 
READ Thin nee i BY, READ in place of the object following the X. That is, X means “don't really 
REND Ihis. use EVAL of it instead.” x is often used in files in front of calls to ASCII, BITS (whicy 
see). ete. alth when the FUNCTION is compiled the compiter will do the evaluation if the 
Foe cee eADHMtant. Also seen is %-INCHAN, read as the CHANNEL in use during LOAD or FLOADs 
for example, <PUT %.TNCHAN 18 8> causes succeeding FIXes to be read as octal 


omeeter READ encounters 2x, it Tikewise immediately evaluates the object following the %%. 


However. it completely ignores the result of that evaluation. Side effects of that evalucr 
of course. 


Example: 


SDEFINE SETUP () <SET A 0>>5 


SETUP 
<DEFINE NXT () SET A <+ .A 1>>98 

UXT 

CAKESETUP> KCHXT> XENXT> (XXCSETUP>) XCNXTDIS 
m201) 
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17.1.2, LIWK 


LINK exprany. string oblist> 


creates an object of TYPE LIUK, PRINTYPE ATOM. A LINK looks vaguely like an ATOM; it has a 
PNANE (ihe « argument). resides in an OBLIST (the objist argument) and has a “value” (the exp 
arguinent). A LItK has the strange property that, whenever it is encountered by READ (that is, Its 
PHANE iy read, just like an ATOM, possibly with OGLIST trailers), READ substitutes the LINK's “value” 
For the LINK immediately, The effect of READIng a LIN) ME is exactly the same as the effect of 
reading its "value 


The ot tment is optional, <1 .OULIST> by defaui 
LINK is ercatcd via THSERT, so am error result 
same PHATE 


LINK returns its First argument. ‘The 
if there is already an ATOM of LINK in obl/st with the 


The primary wise of Liliks is in interactive work with MDL: expressions which are common 
but annoyingly long to type. can be “linked” to PHAMES which are shorter. The standard exan 
the Follow 


ly used, 
ple is 


<LINK ‘CERRET> "7E* <ROOT>> 


Which Hinks the ATOM of 6 


MEE in the ROOT OBLIST to the expression <ERRET>. 


17.1.3. Programalefined Macto-characters 


During READing from an input CHARNEL or PARSEing a STRING, any character can be made to have 
@ special meaning. A character can cause an arbiteary routine to be invoked, which can then return 
any number of clemcuts to be put into the object being built by READ, PARSE, or LPARSE. 
Translation of characters is also possible. ‘This facility was designed for those persons who want to 
We MDI. READ to do large parts of their input but have to modify its actions for some areas: for 
example, one might { aud right parentheses as tokens, rather than as delimiters 
indicating a LIST 


17.3.1. READ (Finally) 


Associated with READ is an ATOM, READ must be a VECTOR of 
elements, ene for cach character up to and including all characters to be treated specially, Each 
element indicates. if not 0, the action to be taken upon READ's encounter with that character. A 
simrilar VECTOR, the local value of PARSE-TABLE!-, if any, is used to find the action to take for 
characters cncanutered when PARSE of LPARSE is applied to a STRING. 


BLE!~, whose local value, if any. 


These tables can have up to 256 elements, one for each ASCII character and one for each possible 


jon-point/ASCII-character pair. In MDL, the exclamation-point is used as a method of 


1742-1743. Macro-operations 


154 The MDL Progran 
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expanding the ASCH character set 
railing a STRING 


dan exclamation-point/eharacter pair is treated as one logical 
character when 1 


nding to a character is <NTH fable <* 1 ASCII char>>>. The element 

corresponding ta an exclamarion-point/ASCII-character pair is <NTH table <+ 129 ASCII char>>>. 

The table can be shore case it is treated as if it were 256 Jong with 0 
vents beyond its actual leagth 


An clement of the t 


St satisfy one of the following DECL Patterns: 


J action is to Le taken when this character is encountered. 


10 indicates that no spe 


CHARACTER inttivates thar the encountered character is to be translated into the given CHARACTER 
whenever it appears, exeept when as an object of TYPE CHARACTER, or in a STRING, or 
immediately following a \ 


FIX indicates that the charac 


ris to be given the same treatment as the character with the 
ASGH value of the FLX. This allows you to cause other characters to be treated in the saine 
ons apply as for a CHARACTER. 


Way as A-Z For example. The same excep 


LIST F1X> indicates the same thing, except that the character docs n 


t by itself cause a break, 
or number, it will be treated as part of that ATOM 


Therefore. if it occurs when reading an AT 


APPLICARL (19 ane arguinent) indicates that the eh 
the reading of the current ol 
of the table is APPLYed 10 the ASCH Ck 
end-of-file slor of the CHAUKCL temporaril 
REAUA) 0. that end-of-fi 


rac 0 be a break character. Whenever 
1 is finished, and the corresponding element 
R. (If READ is called during the application, the 
contains a special kind of ACTIVATION (TYPE 
can he signalled properly to the original READ. Isn't that 
wonderful) ‘The value returned is taken 10 be what was read, unless an object of TYPE SPLICE 
is returned. If 9. the elements of this object. which is of PRIMTYPE LIST, are spliced in at the 

1 emp ICE allows one to return nothing. If a structured 
and a SPLIC elements after the first will be ignored. A 
SPLICE dusting reading is similar to a SEGHENT during evaluating, except that, in some sense, a 


point where MDL 


object is not bein: 


SPLICE says “expand me". whereas the structure containing a SEGHENT says “I will expand you". 


<LIST APPLICAEL E> indicates the same thing. except that the character does not by itself cause 
a break, ‘Therefore, if it occurs when reading an ATOM or number, it will be treated as part of 
that ATON oF nusber 


READ takes an adilitin 
ATOM READ-TABLE as t 
is rebound to 


READ is thus: 


al optional argument, which is what to use instead of the local value of the 
© VECTOR of reau-mnacro characters. If this argument is supplied, READ-TABLE 
within the call to READ. READ takes from zero to four arguments. ‘The fullest call to 


ast Macro-oper. 
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<READ channel cof-routine look-up read-tablesvector> 
The other arguments are explained in sections t.t.t.1. 1.3, and 15.7.4 
ERROR and LISTEN rebind READ-TABLE fo the GVAL of READ-TABLE, if any. else UNASSIGN 
17.1.3.2. Examples 
Examples of each of the different kinds of entries in macro tables: 
SET READ-TABLE <IVECTOR 256 0>>5 
Gane 
READ-TABLE <* 1 <ASCIT 1\a>> 1\A> 
F*CHARACTER: translate 9 to A.*S 
eee 
abes 
PUT .READ-TADLE + 1 CASETE 1\K>> <aseIT 1\A>> 
"FIX: make % just @ normal ASCII character.* 
<PUT .READ-TABLE <+ 1 <ASCIE !\,>> (<ASCIT 1\,)> 
"<LIST FIX>: make comma no longer a break 
character, but stil! special if at a break."S 
ere 
A.BS 
A\.B 
That was an ATOM with PHAME A,B 
BS 
8 
s"That was the FORM <GVAL 6> .* 
<PUT .READ-TABLE ASCIE 1\:>> 
FUNCTION ((X) <LIST COLON <READ>>)> 
"APPLICABLE: make a new thing like ( < and [ 
Lees] 
Bras 
& 
(colo! 
(COLOH (COLON (COLON FOO))) 
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<PUT .READ-TABLE <* 1 cascIT 1\:>> 
"C#PUNCTION ((%) LIST COLON <READ>>))> 
"<LIST APPLICABLE>: Vike above, but not a break 


bined 


Oa 
i"That was an ATO. * 
Foo: 


(COLON (COLON (COLON FO0))) 


17.1.3.3. PARSE aud LPARSE (finally) 


tablecvector look-ahead:character> 


Pan radi look-up pa 
arguancire i, Call to PARSE. PARSE can tale from zer0 to five argument, If PARSE is given no 
Adaltinnatty See rte the First object parsed from the local value of the svRIng PARSE-STRING and 
TEN Te rig CARSE-SIRIUG to the STRIUG having those CHARACTERS array Were parsed RESTed 
That cain ARSE is given a STRING 10 parse. the ATOM PARSE-STRING fo eoont ty the STRING within 
that call, If the ARSE nent is Given to PARSE, PARSE-TABLE is rebound to it within thet 
Foatennty ARSE: Finally, PARSE can take a look-ahead CHARACTER, ont? treated as if it were 
elcally, concatenated 10 the frout of the string being parsed. Ghee arguments are described in 
Sections 7.6.62 and 157, 


the mek is exactly like PARSC, except that it tries t0 parse the whole STRING, returning a LIST of 


the objects created, 


EVAL Macros 


Au EVAL macro provides the convenience of a FUNCTION without the overhead of calling. SPECIALs, 
be compe niled version, A special-purpose function that is called ofree by FUNCTIONS that w 


be compiled is a good candidate for an EVAL macre 


17.2.1. DEFMAG and 1 xPaND 


PUM Ae (uetine macro” is syntactically exactly the same as DEFINE However, instead of creating a 
FUNCTION, OF HAC creates a NACRO. A © is of PRIMTYPE LIST and in fact has a FUNCTION for 
Other APPLICAMLE 1YPE) as its si 


nis A HACRO is applied in a funny way, however: 


A MACRO can ii 


elf be applied to argam 
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The Fiest CVAL 


EVALed twi causes the HACRO's clement to be applied to the HACRO's arguments. 
Whatever that application returns (usually another FORM) is also EVALed, ‘The result of the second 
is the result of applying the HACRO. EXPAND is used to perform the first EVAL without 


To avoid complications, the 


First EVAL (by EXPAN 


+ 10 create the object to be EVALed the second time 
a top-level environment. The result of this policy is that two syntactically 
sof a MACRO always return the same expansion to be EVALed in the second step. 
rates (wo extra FRAMES: one for a call {0 EXPAND, and one for a call to EVAL the 
MACRO application in a top-level enviconment 


¢ First FYAL yeu 


ple: 


DEFHAC INC (AIM *OPTIONAL™ (W 17) 
*DECL (CVALUE) FORM (ATH) ATOM (H) <OR FIX FLOAT) 
FORM SCT ATH <FORM + <FORM LVAL -ATH> .ND>>S 


THe 
INcs 
MACRO (4FUNCTION ((ATH "OPTIONAL" (W1)) ...)) 
SCT X 1>8 

1 

SINC K>S 


XPAUD ‘INC X225, 
<SET X <+ .X I> 


| Perhaps the intention is clearer if PARSE and % are used: 
<DEFHAC INC (ATH OPTIONAL" (NW 1)) 
UrCL (.--9 


PARSE “CSET %.ATH <# %.ATH %.4>>*>> 


MACROs really exhibit their advantages when they are compiled. The compiler will simply cause the 


first CVALuation to occur (via EXPAKO) and compile the result. The single element of a compiled 
| MACRO is an RSUGR or RSUBR-ENTRY. 


17.2.2. Example 


Suppose you want to change the following simple FUNCTION to a HACRO: 


<OUFINY NOUBLE (X) #DECL ((X) FIX) <+ .x x22 


| 1724 - 1722 Macro-operations 


y be tempted to write: 


<DEFHAC DOUBLE (x) 


This HACRO works, but only when th 


<DEFINE TRIPLE ¢¥) 
1 


application, 


this FUNCTION is apy 
Compilation of 


would have no top-level binding for ¥ 
«Der BLE (+x) 
Now this is move like the or 


result evaluated again. 
<DEFTHE THe 
You might hope that 
<TNC-AHD-DOUBLE 1> -> 


lied. the top-level binding of ¥ is used, 


Aud TRIPLE works. 


AWO-DOUBLE (¥) 
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#DECL ((X) FIX) <FORM + .x .x>> 


© argument does not use temporary bindings. Consider 


<* -¥ <DOUBLE .¥>>> 
hot the binding just created by the 
FUNCT Id probably fail, because the compiler probably 


Well, how about 


<FORM + .X .X9> "The DECL = 


has to go 
NCTION, because no longer is the argument evaluated and the 
But now consider 


<DOUBLE SET Y <* 1 .¥>>9> 


<DOULE <SET Y <+ 1 1>>9 
<OOUBLE 2 


<* 22> 


But, when NOUBLE is applied to that FORM, the argument is QUOTEd, so: 
SINC-AND-DOUBLE 1> -> <DOUBLE «SET ¥ <+ 1 .¥>9> 
~> SFORH + <SET Y <+ 1 .¥>> <SET ¥ <1 .¥999 
> 23> 
23 5 
So. since the evaluation ef DOUDLE’s argument has a side effect. you should ensure that the 
evaluation is done exactly ence. say by FO 
<DEFHAC DOUBLE (*AKY) 
FORM PROG ((X .ANY)) #DECL ((X) FIX) "e+ .x .x>99 


As a bonus, 


This exampl 


FUNCTIONS. Rut the effort may 


the DECL can once more be used. 


that writing good MACROs is a little trickier than writing good 


-ompiled program must be speedy 


be worthwhile if the e 
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Chapter 18. Machine Words and Bits 


The MDE. facility for 4 
WORD and BITS 


aling will unititerpreted machine words and bits involves two data TYPEs: 
A WORD is simply an uninterpreted machine word, while a BITS is a “pointer” to a 
set of bits within a WORD. Operating on WORDs is usually done only when compiled programs are 


ed (chapter 19) 


18.1. Wor 


A WORD in MDL is a P 


>P-10 machine word of 3G bits. A WORD always PRINTs in “# format”, and its 
Hts are always p 


inted in octal (hence preceded and followed by *). Examples: 


woRD 0 stall oss 
WORD *o0000000000) 


*2000* itone bit 1*S 
000000002000" 


WORD =52 s"every other bit 1"s 


WORD is its ow 
which cau Cit 


it is also the PRIN 
1¢ word. 


YPE of FIX, FLOAT, CHARACTER, and any other TYPE 


deed any Si 


A WORD cannot be an argument to +, -, oF BRs except for CHTYPE, GETBITS, PUTBITS 
ipulating functions, all to be described below. Thus any arithmetic bit 
done by CHTYPCing a WORD to FIX, doing the arithmetic. and then CHTYPEing 
ver, bit manipulation can be done without CHTYPEing the thing to be played 
P WORD; the result of the manipulation will be of the 

ginal object or can be CHTYPEM to it 


ack to W 


with to a WORD, » 
same TYPE as the a1 
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Aw object of TYPE GITS is 
OITS is precisely that of a 


INTs just like a WORD. The internal form of a 


te pointe”, which is, In fact, just what a BITS is 


{4 BITS is, assume that the bits In a WORD are numbered From right 
ed 0 and the leftmost numbered 35, as in 


For purposes of explaining wh 


to left, with the right 


(This is not the “standard” ordering: the “standard” one goes from left to right.) 


A BITS is most conveniently created via the SUBR BITS: 


Feturns a IIS whieh “points te” a set of hits width wide, with rightmost bit right-edge. Both 


© Of TYPE FIX, and the second is optional, 0 by default. 


arge 


Examplcs: the indicated application of BITS returns an object of TYPE BITS which points to the 
a WOR 


<BIts 7> 35 76 


<BIIS 36> 35 


18.3. GETBLIS 


GETRITS fromprintype-word bits> 


TYPE MORD, returns a new object whose TYPE is WORD. This object is 
of bits in from pointed to by bits is copied into the new 


where fron is an abject © 
constructed in the f 


Howing way: the s 


abject, right-ad justed. that is. lined up against the right end (bit number 0) of the new object. All 
those hits of the new object which are not copied are set 0 zero, In other words, GETBITS takes bits 
From an arbitrary place in from and puts them at the right end of a new object, The from argument 


to GETOITS is not affected. 


Examp! 
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SGETBIIS 4WORD *777777777777" <BITS 3>>$ 
WORD *000000000007" 

<GCTRITS 7012345670123" <OITS 6 18>>5 
“WORD *o00000000085" 


18.4. PUIRLIS 
<PUTBITS foxvintype-word wits fromprintype-word> 


M1 fron are of MRINTYPE NORD, returns a copy of fo. modified as follows: the set of bits 
in fo whicl are poiuted to by tits are replaced by the appropriate number of rightmost bits copied 
| From fom (nptioual. 0 by default. In other words: PUTBITS takes bits from the right end oF seam 

an arhitrary position in a copy of fa, None of the arguments to PUTBITS is 


| affected. 


stuffs then § 


<PUIBIIS «WORD *777777777777" <BITS 6 3998 
! PMORD 4777777777007" 
ITAITS "666777000111" <BITS 5 15> WORD *1238>s 
WORD "6667763001118 


| <PUTBTIS ¢WORD *765432107654" <BITS 1895 
| rHORD *765432000000" 


18.5. Bitwise Boole, 


J 
Each of the SUni< AUDA, ORR, XORB, and COVB takes arguments of PRINTYPE NORD and returns a 
WORD which is the bitwise Boolean “sud”. inclusive “or” exclusive “or”, or “equivalences tintoren oF 
exclusive “or"l. respectively, of its arguments, Each takes any mumber Uf argumenen ie ne 
Argument is given, a VORD with all bits off (ORD and YORS) or on (ANDB and EQUES Ie revernes. ‘Ir 


arguments are given, the operator is applied to the first two. then applied to that result and the 
third. ete. Be sure not t0 eo AND and OR with AKDB and ORB. 
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tite? 


256, says the hardware) 
other 
the right 


ng the bits in from, shifted the number of bits specified by 


ught in at the end being vacated: bits shifees 
is positive, shifting is to the left: if amount is negative, shift, 


amount (mod 
d out at the 


ng is to 
Examples: 


<tsit 8 6>s 


*WOKD *000000001000% 
<LSN D -695 


WORD *00000000000" 


SROT fromenutype-word amountitix> 


D The hahea entailing: the bits in from rotated the number of bits spceitied by amount (mod 
Bae, {ays the arstwareh, Rotation ts a cyclic bitwise shift where bite sbcice out at one end are put 


thas Ajit at tke other. IF amouot is positive, rotation is to the Wt If eee tne negative, rotation is to 
the right. EXamptes 


<HO1 B 62s 


#WORD "000000001000" 
<ROT & -6>s 
WORD =100000000000% 
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Chapter 19. Compiled Programs 


19... RSUBR (ihe TYPE) 


RSUBRs Crelocatable subroutines”) are machine-language programs written to run in the MDL 
environment, ‘They are usually produced by the MDL assembler (often from output produced by the 
compiler) although this is not necessary. All RSUBRs have two components: the “reference vector” 
and the “code vector”. In some cases the code vector is in pure storage. There is also a set of 
“fixups” associated with every RSUBR, although it may not be available in the running MDL. 


19.2. The Reference Vector 


An RSUBR is basically a VECTOR that has been CHTYPEd to TYPE RSUBR via the SUBR RSUBR (see 
below). Tiris ex-VECTOR is the reference vector. The first three elements of the reference vector have 
predefined meanings: 


‘The First clement is of TYPE CODE or PCODE and is the impure or pure code vector respectively. 

The second clement is an ATOM and specifies the name of the RSUBR- 

The third element is of TYPE DECL and declares the type/structure of the RSUBR's arguments and 
result. 


The rest of the elements of the reference vector are objects in garbage-collected storage that the 
RSUBR needs to reference and any impure slots that the RSUBR needs to use. 


When the RSUBR is running. one of the PDP-10 accumulators (with symbolic mame R) is always 
pointing to the reference vector, to permit rapid access to the various elements, 
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19.3. RSUBR Linking 


RSUBRs can call any AP 
linked 


most other APPLICABLEs are not 
g UUO is set up to point at a slot in the 
ily contains the ATOM whose 


ly compile 
Esherence vector (hy indexing off accumulator, R) 
G/LVAL is the called object. The calling mechanism (WOO handler) causes contol to be transferred 
ite Car ilct olujcct and. depending on the state of the RSUBRIne flag, the ATON will be replaced by 
1 gue aalit the call is OF the “quick™ variety, the called neuen ct RSUBR-ENTRY will be CHTYPE 
Fags ack RSUBR oF QUICK-ENTRY, respectively. before teplaccann ) Regardiess of the RSUBR-link 
Flag’s state. calls 10 FUNCTIONs are never Permanently linked. A call to a non-Subroutine generates 
ONtFA RANE, whose FUNCT is the a, 


ESUBRs are linked together for faster execution, but tinkh iG May not be desirable if the RSUBRs are 
Hucged. aud various revisions are being re-loaded. "A linked con Will forever after go to the 
Treats seal eureent GILVAL of the called ATOM. ‘Thus, while weeny if RSUBRs, you 
th a nonce Aa we lishing. by calling the RSUBR-LINK SUBR with « are: argument. Calling it 
with a non-FALSE arg: og 1 weit King thereafter, It returns the previous state of the liek tag, 
clther T or #FALSE (). Calling it with no argument returns ene current state. 


being 


Pramsitst clement oF an RSUER Is the code vector. of TYPE CODE oF Pcove. 


PRIMTYPE UVECTOR 
of words th ‘ustructions which comprise the RSUBR. Since ti 
like a standard UVECTOR, it will be moved around by the garbage coll 
code is required to he location-insens 

output. The ass 


bur it points to 
RSUBR can be Frozen (using 
the superior operat 


14 {ie first clement of an RSUBR is of TYPE PCODE Cpure code | the code vector of the RSUBR is pure 
sr enaraule. TYPE PCODE is of PRINTYPE WORD. The lett halt ween word specifies an offset into 
ihe right half specifies an offset into the block of code where 


an internal table of pure RSUDRS, = 
this RSUBR starts, ‘The PCODE pr 


REPCODE mame:string olfsetstix> 
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where nanie nantes the entry in the user's pure-RSUBR table, and offset is the offset. (Obviously, 
PCODE is also the name of a SUBR, which generates a pure code vector.) Pure RSUBRs may also move 
around. but only by being included in MDL's page map at different places. Once again 4 can be 
fused exactly as hefore 10 do location-independent address referencing. Individual pure code vectors 
can be “unmapped” (marked as being not in pri 


ary storage but in their original pure-code disk 
files) if the space in storage allocated for pure code is exhausted. An unmapped RSUBR is mapped in 
again whenever necied. All pure RSUDRs are unmapped before a SAVE file is written, so that the 
code is not duplicated on disk. A purified RSUBR must use RGLOC ("relative GLOC") instead of GLOC. 
RGLOC p jects of TYPE LOCR instead of LOCO 


19.5. TYPE-C and TYPE=4 


| In order to handle user NEWTYPCs reasonably, the internal TYPE codes for them have to be able to be 
difforemt From one MDI cun to another, Therefore, references to the TYPE codes must be in the 
reference vector rather than the code vector. To help handle this problem, two TYPEs exist, TYPE-C 
type code") aud TYPE-W type word"), both of PRIMTYPE WORD. They print as: 


<TYPE-C I) pe printypezatom> 


K<TYPE-W fvpe print ype:ators> 


The SUBR TYPE-C produces an 
“TYPE word” (appendix 1) for an objet 


cenal T 


PE code for the type, and TYPE-W produces a prototype 
of that TYPE. The primlype argu is optional, included 
only as a check against the call to NEWTYPE. TYPE-W can also take a third argument, of PRIMTYPE 
WORD, whose right half is included in the generated “TYPE word". If type is not a valid TYPE, a 
NEWTYPF is automatically done. 


To be em 


»plete. a similar SUBR and TYPE should be mentioned here. 
<PRIMTYPE-C fy pe> 


Produces an internal “storage allocation code” (appendix 1) for the type. The value is of TYPE 
PRIMTYPE-C, PRINTYPE WORD. In almost all cases the SUBR TYPEPRIM gives just as much 
information, except in the case of TENPLATEs: all TYPEs of TEMPLATES have the same TYPEPRIM, but 
they all have different PRIMTYPE-Cs, 


R) 


19.6. RSUBK (he SU 
€RSUNR [rode name dec! ref ref ...1> 


RSUBR, after checking 


t for legality. RSUBR is rarely called other than 


19.4- 196 Compiled Programs 


| 
4 


166 The MDL Programming Language 


Pohibied oi setubler (Lebling. 1979), It can be used if changes must be made to an RSUBR that are 
Prohibited by MDL's built-in safety mechanisms. For example. if the GVAL of name teen eetent 


<SET FIXIT <CHTYPE ,name VECTORS 
C..0] 


(changes to .FIXIT) 


<SETG name <RSUBR .FIXITD>>S 
*RSUBR [...) 


RSUBRs c: 
an RSUBR. 


tiple entry points. A 


RSUBR-ENTRY can be applied to arguments exactly like 


<RSUBR-ENTRY [rsubr-or-som name:atom dec!) ofteetstix> 


the RSC ee TOR arEunIeNt CHTYPEM to an RSUBR-ENTRY into the rsubr at the sper 
the RSUBR-ENTRY is to have a DECL (RSUBR style). it should come as shown 


ied offset. If 


SENTRY-LOC reubr-entry> 


Centey location’) returns the offset into the RSUBR of this entry. 


19.8. RSUDRs in Files 


There are three kinds of files that can contain RSUBRS, identified by second names BINARY, NBIN 
and FOIN. There is nothing magic about these names, but they are used by somvention 


A BINARY file is a co 
represent, 


pletely ASCH file containing complete impure RSUBRs in character 
re recy ate ois VEStOF appears as #CODE followed by a UVECTOR of PRINTYPE Wonne 
BINARY Files are generally slow to load, because of all the parsing that must be done. 


An NBIN file conta 
Portion is signalled 1 
incorrectly assu 


"READ By the cas SClt characters and binary code. The start of = binary 
READ by the character control-C, so naive readers of an NBIN file on ITS may 
 asunn fprtids before any binary code appears. An NBIN file cannot be edited with 


RSUB RE Hee in RSUBR is written in NBIN format by being PRINTed on a "PRINTES CHANNEL... 
RSUBRs in NBIN File: t purified either 
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An FBIN File is actually part of a triad of Files. The FBIN file(s) itself is the impure part of a 
collection of purified RSUBRs, It is simply ASCII and can be edited at will. (Exception: in the ITS 
and Tops-20 versions. the first object in the file should not be removed or changed in any way, lest 
rim reaper” program for FEIN files think that the other files in the triad are obsolete and delete 
self resides (in the ITS and Tops-20 versions) in a special large file that 

I cutrently-used pure code, or (in the Tenex version) in a file in a special disk directory 
tment to PCODE for the RSUBR. The pure-code file is page- 

apped dircetly into MDL storage in read-only mode. It can be unmapped when the pure storage 
taimed, and it can be mapped at a different storage address when pure storage must be 
compacted. There is also a “fixup” file (see below) or portion of a file associated with the FBIN to 


them.) The pure cod 
with first name the same as the name a 


round out the triad, 


An initial MDL can have pure RSUGRs in it that were “loaded” during the initialization procedure. 

| The files ge-mapped in until they are actually needed. The “loading” has other side 
effects, such as the creation of OBLISTs (chapter 15). Exactly what is pre-loaded is outside the scope 
of this document 


purpose of “Fixups” is to correct references in the RSUBR to parts of the interpreter that change 

from one release of MDL to the next. The reason the fixups contain a release number is s0 that 

| they ca he campictely ignored when an RSUBR is loaded into the same release of MDL as that from 
which it was last written out 


| There are three forms of Fixups, corresponding to the three kinds of RSUBR files. ASCIT RSUBRs, 
found in BINARY files, have ASCII fixups. The fixups are contained in a LIST that has the 
following forma’ 


(MOL-releace-tix 
name:atom valuedix (usedix usedtix ...) 
namezatom valuetix (usedtix usetix ..-) 


) 


| The fixups in ue 
| that 


N files and the fixup Files associated with FBIN files are in a Fast 
jooks like a UVECTOR of PRIMTYPE WORDs, 


nternal format 


Fixups arc usually discarded after they are used during the loading procedure. However, if, while 
Feading a BINARY or NBIN file the ATOM KEEP-FIXUPS!- has a non-FALSE LVAL, the fixups will be 
kept. via an association between the RSUBR and the ATOM RSUBR. It should be noted that, besides 
correcting the code, the £ixups themselves are corrected when KEEP-FIXUPS is bound and true. Also, 
the assembler and compiler make the saine association when they first 
can be written out with its fixups. 


Ry 
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In the case of pure RSUBRs (FBIN Files), things are a little different. If a pure-code file exists for 
tie cleave of MDL. it is used immediately, and the fixups are completely ignored. If a pure-code 
File for this release docsn't exist. the fixup file is used to create a new copy of the file from an old 
vision of the fixup file is created to go with the new pure-code file. ‘This all 
nd the user's back. 


one, and also a 
oes on automatically beh 
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Chapter 20. Coroutine: 


This chapter purports to explain the coroutine primitives of MDL. It does make some attempt to 
explain coroutines as {only as required to specify the primitives, If you are unfamiliar 
with the basic concepts, confusion will probably reign. 


A coroutine in MDL is implemented by an object of TYPE PROCESS. In this m 
word “process” is distinguished by capitalization from its normal use of denot 
system process (which various systems call a process. job, fork, task, etc.). 


. this use of the 
an operating- 


© primitives do not include a “time-sharing system”. Only one PROCESS is 

nd control is passed back and forth between PROCESSes on a coroutine-tike 
The primitives are sufficient. however. to allow the writing of a “time-sharing system” in 
. with the additional use of the MDL interrupt primitives. This has, in fact, been done. 


20.1. PROCESS (the TYPE) 


| A PROCESS is an object which contains the “current state” of a computation. This includes the 
LVALs of ATOMs (hindings"), “depth” of functional application, and “position” within the application 
Of each applied Function. Some of the th ich are not part of any specific PROCESS are the 
GVALs of ATOMs. associations (ASOCS), and the contents of OBLISTs. GVALs (with OBLISTs) are a chief 
means of communication and sharing between PROCESSes (all PROCESSes can refer to the SUBR which 
is the GVAL of +, for instance) Note that an LVAL in one PROCESS cannot easily be directly 
referenced from another PROCESS 


‘A PROCESS PRI! 
“PROCESS nun 


Ts as #PROCESS p. where p is a FIX which uniquely id 
ber” typed out by LISTEN. A PROCESS cau 


utifies the PROCESS; p is the 
jot be read in by READ. 


The term “run a PROCESS” will be used below to mean “perform some computation, using the 
PROCESS to record the intermediate states of that computation”. 


N.B.: A PROCESS is a rather large object: creating one will often cause a garbage collection. 
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STA1€ of « vnocess 


returns an ATOM (in the ROOT OBLIST) wh 
Which STATE can return, and their mean 


ch indicates the “state” of the PROCESS process. The ATOMS 
ngs, are as Follows: 


RUNANLE (sie) 


RUNNING ~ pro, 


tly running. that is, it did the application of STATE 


RESUMABLE -- process has been run, is not currently running, and can run again. 


DEAD ~ process has been ru 


but it can 


Hot run again: it has “terminated”, 


1B addition. an interrupt (chapter 21) can be enabled to det 


1 input) or “unblocked” (term: 


‘blocked” (waiting For tert 
has not been impiemented.) 


ect the time at which a PROCESS becomes 
inal input arrived). (The STATE BLOCKED 


20.3. proces: 


<PROCESS 


farter:applicable> 


creates and returns a 


new PROCESS but does not run 
RUNABLE (sic). 


its the STATE of the returned PROCESS is 


starter is someth 


F aplicable to one argument. which must be evaluated. starter is used both in 
starting and “terminating” a PROCESS. 


In particular, if the starter of a PROCESS ever returns a 
value, that PROCESS becomes DEAD. 


RE. 


The SUBR RESUME is used 


to cause a computation 
PROCESS. An applicatio 


to start or to continue running in another 
Of RESUME looks like this: 


<RESUME 


etvelany process? 


Where retval is the “returned val 


ue” (sce below) of the PROCESS th: 
the PROCESS to be started oF cont, 


‘at does the RESUME, and process Is 
ed, 
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The process argument to RESUME is optional, by default the last PROCESS, if any, to RESUME the 
PROCESS in which this RESUME is applicd. If and when the current PROCESS is later RESUMEd by 
another PROCESS, that RESUME’s refval is returned as the value of this RESUME. 


Up a New PROCESS 


Let us say that we are 
Somew! 


ning in some PROCESS, and that this orig’ 
c. we have evaluated 


ETG Pl <PROCESS ,STARTER>> 


| where ,STARTCR is some appropriate function. Now, in ,P0, we evaluate 
} 
<RESUME .A ,P1> 
| and the following happens: 
() In ,P0 the argu 


ents of the RESUME are evaluated: that is, we get that LVAL of A which is 
current in ,PO and the GVAL of Pi 


Q) The SIAtE of 
middle of the RESUME 


is changed (0 RESUMABLE and ,PO is “frozen” right where it is, in the 


(3) The STATE of .P1 
2P1. .P1 now cont 


fed to RUNNING, and STARTER is applied to ,P0's LVAL of A in 
s way. evaluating the body of , STARTER. 


| The .A in the RESUME could have been anything. of course. The important point is that. whatever it 
is, it is evaluated in .PO 


What happens next depends. of course, on what ,STARTER does, 


20.5.2. 


Pop-level Return 


Let us initially assume that .STARTER does nothing relating to PROCESSes, but instead simpl; 
y g ic y 


Feturns a value -- say starval, What happens when ,STARTER returns 


(1) The STATE of ,P1 is changed to DEAD. ,P1 can never again be RESUMEG. 
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(2) The last PROCESS to RESUME ,P1 is found, namely 


+P0, and its STATE is changed to 
RUNNING 


(3) storval is returned in 
left off 


PO as the value of the original RESUME, and ,PO continues where it 


‘ase looks just like an elaborate version of applying ,STARTER to .Ain ,PO | 


metric RESUMEIng 


ew uPPese that while still in ,P1 the following is evaluated, either in STARTER or in something 
called by STARTER 


<RESUME .BAR ,PO> 
This is what happens: 


ar 


© arguments of the RESUME are evaluated in ,P1. 
(2) The STATE of 


+P1 is changed to RESUMABLE, and ,P1 is 
RESUME 


“frozen” right in the middle of the 


(3) The STATE of ,PO is changed to RUNNING 
2P0's original RESUME. PO then cont 


+ and .Pl’s LVAL of BAR is returned as the value of 
ues right where it left off. 


This is th if case. because ,PO can now do another RESUME of .P1; thi 
+PO, pass a value to ,P1 and “turn on” PI 


»P1 back again. ete. ad nai 
obviously also be done w 


will “turn off 
+P1 can now again RESUME ,P0, which can RESUME 
scam. with everything done in a perfectly symmetric manner. ‘This can 
fh three or more PROCESSes in the same manner. 

Note how this differs from non 
Without destroying 
“retuen’ 


| functional application: 
the state that Function is in. 


you cannot “return” from a function 
The whole point of PROCESSes is that you can 
continue where you left off. 


(RESUME), remembering your state. and later 


mple 
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“Initially, we are in LISTEN in some PROCESS.” 
DEFINE SUM3 (A) 
#DECL ({A) SOR FIX FLOAT>) 
<REPEAT ((S -A)) 
#DECL ((S) <OR FIX FLOAT?) 
<SET S <+ .S <RESUME "GOT 1*>>> 
<SET S C+ 1S <RESUME "GOT 2">>> 
<SET S <RESUME .S>>>>S 
SUM3 
ij ["SUMS, used as the startup function of another PROCESS, 
pets RESUMEd with numbers. Tt returns the sum of the last 
three numbers 1t was given every third RESUME.* 
<SETG SUMUP <PROCESS ,SUM3>2S 
#PROCESS 2 
:Now we start SUMUP and give SUM3 its three numbers." 
RESUME 5 ,SUMUPDS 


“Got 1* 
<RESUME 1 ,SUMUP>S 
“Got 2" 

RESUME 2 ,SUMUPDS 
8 


Just as a note, by taking advantage of MDL’s order of evaluation, SUM3 could have been written as: 
<DEFINE SUM3 (A) 
<REPFAT ((S_-A)) 


#DECL ((A S) <OR FIX FLOAT>) 
<SET S <RESUME <+ .S <RESUME "GOT 1"> <RESUME "GOT 2">>>>>> 


20.7. Other Coroutining Features 


20.7.1. BREAK-SEQ 


<BREAK-SEO any process> 


Cbreak evaluation sequence’) returns p: 
so that when it is next RESUMES, it will first eval 
d by 


ess, which must be RESUMABLE, after having modified it 
te any and then do an absolutely normal RESUME; 
ny is theown away, and the value given by the RESUME is used normally. 


the value retur 


If a PROCESS is BREAK-SEQed more than once between RESUMES, all of the anys BREAK-SEQed onto it 
Will be remembered and evaluated when the RESUME is finally done. The anys will b 
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“Iast-in first-out” order. ‘The FRAME generated by EVALing more than one any will have as its FUNCT 
the dummy ATOM BREAKER. 


(1) Any attempt to cause it to become DEAD will be met with an error. | 


The PROCESS number of <MAIND is always 1. The i 
returns, #PROCESS 1. 


I GVAL of THIS-PROCESS is what MAIN always 


20.7.3, ME 


<MeE> 


returns the PROCESS in which it is evaluated. The LVAL of THIS-PROCESS in a RUNABLE (new) 
PROCESS is what ME always returns. 


20.7.4, RESUMER 
<RESUMER procese> 


returns the PROCESS which last RESUMEd process. If no PROCESS has ever RESUMEd process, it returns 
#FALSE (). process is optional, <ME> by default. Note that <HAIN> does not ever have any resumer. 


Example: 
<PROG ((R <RESUMER>)) sTnot effective in <HAIND* 
#OECL ((R) <OR PROCESS FALSE>) 
SAND -R 


<STATE .R> RESUMABLE> 
<RESUME T .R>>> 


20.7.5. SUICIDE 


<SUICIOE retval process> 
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acts just like RESUME, but clobbers the PROCESS (which cannot be CMAIN>) in which it is evaluated to 
the STATE DEAD. 


20.7.6, ISTEP 


<ISTEP process> 


returns process. after pi 


g it into “single-step mode”, 


A PROCESS in single-step mode, whenever RESUMEd, runs only until an application of EVAL in it 
begins or Finishes. At that point in time, the PROCESS that did the ISTEP is RESUMEd, with a retval 
which is a TUPLE. If an application of EVAL just began, the TUPLE contains the ATOM EVLIN and 
the arguments to EVAL. If an application of EVAL just finished, the TUPLE contains the ATOM 
EVLOUT and the result of the evaluation, 

process will remain in single-step mode until FREE-RUN (below) is applied to it. Until then, it will 
stop before and after cach EVAL in it. Exception: if it is RESUMEd from an EVLIN break with a retval 


of TYPE DISMISS (PRIMTYPE ATOM), it will leave single-step mode only until the current call to 
EVAL is about to return, Thus lower-level EVALs are skipped over without leaving the mode. The 
usefulness of this mode in debugging is obvious. 


20.7.7. FREE-RUN 


<FREE-RUN process> 


takes its argument out of single-step mode. Only the PROCESS that put process into single-step 
mode can take it out of the mode: if another PROCESS tries, FREE-RUN returns a FALSE. 


20.8. Sneakiness with PROCESSes 
| FRAMES, ENVIRONMENTS. TAGs, atid ACTIVATIONs are specific to the PROCESS which created them, and 
| cach "knows its own father". Any SUER which takes these objects as arguments can take one which 


| was generatcd by any PROCESS, no matter where the SUBR is really applied. This provides a rather 
| sneaky means of crossing between PROCESSes. The various cases are as follows: 


GO, RETURN, AGAIN, and ERRET, given arguments wh 
“restarts” the PROCESS of its arg 
Which it was executed is lat 


h lie in another PROCESS, each effectively 
nent and acts as if it were evaluated over there. If the PROCESS in 
ens a value just like RESUMI 


SET, UNASSIGN, BOUND?, ASSIGNED?, LVAL, VALUE, and LLOC, given optional ENVIRONMENT 
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arguments which tie in another PROCESS, will Sicefully change, or return, the local values of ATOMs 
ACTIVAT TNT, PROCESS. The optional arguneat co, saually well be 2 PROCESS, FRAME, of 
pice ATION in another PROCESS; In those couse seek uses the ENVIRONMENT which is current in the 
Place specified, 


See ries: And FUNCT will be glad to return ihe FRAMES, argument TUPLES, and applied 
fk FRAMES jp nette® PROCESS. If one is given » PROCESS ( ncluding <ME>) as an argument 
Instead of a FRAME, it returns all or the *PPropriate part of the topmost FRAME on that PROCESS 


from a PROCESS P2, it will do the 
PROCESS's LVALs, etc. will be used, 
jon will be created in P1; and (2) PL will 
Pi eventually causes a RESUME of P2, p2 
ra (ne ENVIRONMENT used in P2 Is defined: a RESUME 

invalid ENVIRONMENT. (Once again, LEGAL? can 


could functionally ret 
Of Pl at this poi 
ed to forestall ¢ 


DA RESUMABLE PROCESS can be used in piace Of an ENVIRONMENT in any application. The 
“current™ ENVIRONMENT of the PROCESS ic effectively used, 


(2) FRAMES and ENVIRONMENTS can be CHTYPEd HPirarily to one another, or an ACTIVATION can be 
with eed fe either of them. and the result “weeker Uistorically. these different TYPES were first used 
hath different SUBRs -- FRAME with ERRET, FAGRONMENT with LVAL, ACTIVATION with RETURN. 
hence the invention of different T¥PEs with simon Properties. 


itagt 2 degree of subtlety and nastiness otherwise 
Hamen attempting to work with multiple PROCES you begin to 
Feel that you are rapidly going insane. you sree good company. 
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Chapter 21. Interrupts 


The MDL interrupt-hand 


ng facilities provide the ability to say the following: whenever “this 
event” occurs. stop whatever is being done at the time and perform “this action” when "this action” 
is finished, continue with whatever was originally being done. “This event” can be things like the 
typing of a character at a terminal, a time interval ending, a PROCESS becor blocked, or a 
program-defined and -generated “event”. “This action” is the application of a specified APPLICABLE 
object fo arguments provided by the MDL interrupt system. The sets of events and actions can be 
changed in extremely flexible ways. which accounts for both the variety of SUBRs and arguments, 
and the rich interweaving of the topics in this chapter. Interrupt handling is a kind of parallel 
processing: a program c ied into x “main-level” part and one or more interrupt handlers 
that execute only whet coi 8 are ripe. 


An interrupt is not an object in MDL, but rather a class of events, for example, “ticks” of a clock, 
garbage collections. the typing of a character at a terminal, ete. 


An interrupt is said occur when one of the events in its class takes place. 


‘An external interrupt is one whose occurrences are signaled to MDL by the operating system, for 
example. “ticks” of a clock. An internal interrupt is one whose occurrences are detected by MDL 
itself. for example. garbage collections. MDL can arrange for the operating system not to signal 


occurrences of an external interrupt to it; then, as far as MDL is concerned, that interrupt does not 


Each intern 


Which is either a STRING (for example, “GC*, "CHAR*, "WRITE*) or an 

ATOM with that PHANE in a special OBLIST, named INTERRUPTS!- . (This OBLIST is returned by 

| SINTERRUPTS>.) Certain names must always be further specified by a CHANNEL or a LOCATIVE to 
which interrupt by that name is meant 


rupt occurs, the interpreter looks for an association on the interrupt's name. If there 
is an association, its AVALUE should be an IHEADER, which heads a list of actions to be performed. 
In each THEADER is the na the interrupt with which the IHEADER is or was associated. 
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fn cacl IHEADER is an element telling whether it is disabled. If an THEADER is disabled, then none of 
ins actions is performed. The opposite of disabled is enabled. It is sometimes useful to disable an 
THEADER temporarily. but removir 


its association with the interrupt’s naine is better than long- 
reating an IHEAQER, associating it with an interrupt, and later 


term disabling. There are SUBRs For c 


Femoving the association 


In each THEADER is a priority, a 
The processing of a higherprior 


eater than 0 which specifies the interrupt’s “importance”. 
y (larger-numbered) interrupt will supersede the processing of a 
ered) interrupt until the high-priority interrupt has been handled. 


Th each THEADER is a (possibly empty) list of HANDLERS. (This list is 
HANDLER c 
an THEADE 


ota MDL LIST.) Each 
responds to an action to perform, There are SUBRS for creating a HANOLER, adding it to 
$list, and later removing it 


In each HANDLER is a Function that we will call ah 
because that is really the best name for it. A 
supplied by the interrupt system 
of the interrupt. In each HAND! 
performed. 


dice (in lower case), despite possible confusion, 
action consists of applying a handler to arguments 
The number and meaning of the arguments depend on the name 

is an element telling in which PROCESS the action should be 


EVENT 


EVENT name priority: whieh> 


Sreafes and returns an enabled THEADER with no HANDLERS. The name may be an ATOM in the 
ZNTERRUPTS OBLIST or a STRING: If I is a STRING, EVENT docs a LOOKUP or INSERT ta 
She eines DIS? If there alrcady is am IHEADER associated with name, EVENT just returns it, ignoring 
the given priority 


whieh 


st be given only for certain names: 


ust Iie 4 CHANNEL if and only if name is "CHAR* (or CHAR!-INTERRUPTS). In this case it is 
the input CHANHEL from the (pseudo-erminal or Network socket whose received characters will 
cause the interrupt to occur. of the output CHANNEL to the pseudo-terminal or Network socket 
Shoe desired characters will cause the interrupt to occur. (See below. Pseudo-terminals are not 
available in the Tenex and Tops-20 versions) 


ig aegument ust be a LOCATIVE if and only if name is “READ* (or READ! -INTERRUPTS) or 
TMRITE (or WRITE!-INTERRUPTS). In this case it specifies an object to be “monitored” for 
usage by (interpreted) MDL programs (section 21.8.9). 


If the interes 


Pt is external, MDL arranges for the operating system to signal its occurrences. 
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213. HANDLER (th 


HANDLER iheader applicable process> 


creates 1 HANDLER, adds it to the front of sheader's HANDLER list (First action to be performed), and 


; feturns it as a value. applicable may be any APPLICABLE object that takes the proper number of 
arguments, (None of the arguments can be QUOTEd: they must all be evaluated at call time.) process 
the interrupt occurred. 

The value returned by the handler is ignored, unless it is of TYPE DISMISS (PRIMTYPE ATOM), in 
which case none of the remaining actions in the list will be performed. 
The processing of 


an interrupt’s actions can terminate prematurely if a handler calls the SUBR 
DISHISS (sce below). 


21.4. 


OFF iheador> 


removes the association between sheader and the name of its interrupt, and then disables iheader and 
rs if there is no association.) If the interrupt is external, MDL arranges for 
the operating systent not to signal its occurrences 


returns it. (An error occ 


<OFF name which> 


Finds the IHEADER associated with name and proceeds as above, returning the IHEADER. which must 
be given only for certain names, as for EVENT. Caution: if you <OFF "CHAR" ,INCHAN>, MDL will 
become deat. 


<OFF harditer> 


returns handler 


fter removing it from its list of actions. There is no effect on any other HANDLERS 


in the list 
Now that you know how to remove IHEADERs and HANDLERs from their normal places, you need to 
know how to put them back: 


<EVENT 


> 
If sheader was previously disabled or disassociated from its name, EVENT will associate and enable it. 


<HANDLER 


der handler> 
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If handler was previously removed fro 
actions. Note that ¢v 


its list, HANDLER will add it to the front of sheader's list of 
1 be specified. 


21.5. INEADER and HANDLER (the TYPEs) 


Both these TYPEs are of PRINTYPE VECTOR, but they do not PRINT that way, since they are self- 
referencing. Instead they PRINT as 


The contents of IHEADERS and HANDLERS can be changed by PUT, an 
determine the behavior of MDL 


the new values will then 


Before «describing the ele 


ts Of these TYPEs in detail, here are a picture and a Pattern, both 
Purporting to show low they look: 


#IHEADER [name:atom or which 
disabled? 


#HANDLER [=-~ 


--> SHANDLER [4HANDLER [J 


priority] <-- s 


applicable It applicable 
process] <- process] 


<THEADER <OR ATOM CHANNEL LOCATIVE> 
<OR ‘#LOSE 0 *#LOSE -1> 


HANDLER HANDLER COR HANDLER IHEADER> APPLICABLE PROCESS> 
FIX> 


21.5.1. THEADER 
The elements of an THEADER are as follows: 


Q) name of inte 


"READ" or 
2) non-zero if ai 


pt (ATOM, of CHANNEL if the name is "CHAR™, or LOCATIVE if the name is 
RITE") 


d only if disabled 
(3) First HANDLER, if any, else a zero-length HANDLER 
@) priority 


Hf you lose track of an THEADER, you can get it via the association: 


Perret 


rupts, GET channef INTERRUPT? returns the IHEADER or #FALSE () If there is 
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no association: EVENT "CHAR" 0 channel> returns the IHEADER, creating it if there is no 


For "WRITE" interrupts, <GET focative WRITE! -INTERRUPTS> returns the THEADER or #FALSE () 


if there is Ho association: EVENT *WRITE® 0 /ocative> returns the IHEADER, creating it if there 


Otherwise, the THEADER is PUT on the name ATOM with the indicator INTERRUPT. Thus, for 
example. CGET CLOCK!-INTERRUPTS INTERRUPT> returns the IHEADER for the clock interrupt or 
#FALSE () if there is no association: CEVENT "CLOCK™ 0> returns the IHEADER, creating it If 
there is no association, 


21.5.2. HANDLER 


A HANDLER specifies a p 
follows: 


6 of a HANDLER are as 


lar action for a particular interrupt. The elemen 


(1) next HANDLER if any, else a zero-length HANDLER 


| 
(2) previous HANDLER or the THEADER (Thus the HANDLERS of a given interrupt form a “doubly- 
linked list” chaining between each other and back to the HEADER.) 
| (3) handler to be applied (anything APPLICABLE that evaluates its arguments — the application 
is done not by APPLY but by RUNINT, which can take a PROCESS arguinent: see next line) 
(4) PROCESS in which the handler will be applied, or #PROCESS 0, meaning whatever PROCESS 
was ritining when the interrupt occurred (In the former case, RUNINT is applied to the handler 
| and its arguments in the currently running PROCESS, which causes an APPLY in the PROCESS 
stored in the HANDLER, which PROCESS must be RESUMABLE. The running PROCESS becomes 
RESUMABLE, and the stored PROCESS becomes RUNNING, but no other PROCESS variables (for 
| example RESUMER) are changed.) 
| 6. Other sunRs 
| appliceble priority 088 whic! 
is equivalent to 
25.1 = 216 Interrupts 


182 The MDL Programming Language 


<HANDLER <EVENT name priority which> 


ON is a combination of EVENT and HANDLER: it creates (or finds) the THEADER, associates and enables 
it, adds a HANDLER to the Front of the list (first 10 be performed), and returns the HANDLER. 


DISABLE sheader> 


is effectively <PUT iheader 2 #LOSE -1>. Actually 
signifies that shoader is disabled. 


TYPE LOSE is unimportant, but the -1 


ENABLE sheader> 


is effectively <PUT iheader 2 #LOSE 0>. Actually the TYPE LOSE is unimportant, but the 0 
signifies that ineader is enabled. 


21.7. Priorities and Interrupt Levels 


At any there is a defined interrupt level. This is 2 FIX which determines which 

interrupts can really “interrupt” -- that is, cause the current processing to be suspended while their 

wants are satisfied. Normal, non-interrupt programs operate at an interrupt level of 0 (zero). An 
Hterrupt is processed at an interrupt level equal to the interrupt’s priority, 


21.7.1. Interrupt Processing 


Interrupts “actually” occur only at well-defined points in time: during a call to a Subroutine, or at 
critical places within Subroutines (for example. during each iteration of HAPF on a LIST, which 


y be circular), or while a PROCESS is "BLOCKED™ (see below). No interrupts can occur during 
garbage collection. 


What actually happens when an enabled interrupt occurs is that the priority of the interrupt is 
compared with the current interrupt level, and the following is done: 


If the priority is 
tracks" and process 


eater than the current interrupt level, the current process! 


ig is “frozen in its 
ig OF the action(s) specified for that interrupt begins. 


If the priority is tess than or equal to the current interrupt level, the interrupt occur 
that is, the fact that it occurred is saved away for processing when the 
enough. 


nce is queued 
terrupt level becomes low 


When the processing 


's actions Is completed, MDL usually (1) “acts as if” the 
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tues on what was left off 
jerrupt occurrences actually 


previously-cxisting interrupt level is restored, and processing cont 
erhaps for io time durationk and (2) “acts as if” any queued In 
ie right then, in nal order of occurrence. 


21.7.2. INT-LCVEL 
‘The SUBR INT-LEVEL is Used to examine and change the current interrupt level directly. 


<INT-LEVEL> 


simply returns the current interrupt level 
TNT-LEVEL fix> 
changes the interrupt Jevel to its argument and returns the previously-existing interrupt level. 


If INT-LEVEL lowers the interrupt level, it does not “really” return until all queued occurrences of 
interrupts of priority higher than the target priority have been processed. 


HT-LEVEL extremes 


Setting th high (for example. <INT-LEVEL <CHTYPE <MIN> FIX>>) effectively 
disables all interrupts (but occurrences of enabled interrupts will still be queued). 


If LISTEN of ERR 


is called when the INT-LEVEL is not zero, then the typeout will be 


LISTENTNG-AT-LEVEL / PROCESS p INT-LEVEL 


21.7.3. DISMISS 


DISMISS permits a handler to return an arbitrary value for an arbitrary ACTIVATION at an arbitrary 
interrupt level. ‘The call is as follows: 


<DISHISS value: 


vation int-leveltin> 


where o1 


ly the value is required. If activation is omitted, return is to the pla reupted from, and 
I value is ignored. If int-/evel is omitted. the INT-LEVEL prior to the current interrupt is restored. 
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terrupts 


Descriptions of the eh 


" MDL interrupts follow. Each is named by | 
its STRIN 


list to be incomplete yesterday. 


acteristics of particular “buil 
me. Expect thi 


ACHAR® is currently the most complex built-in interrupt. because it serves duty in several ways, 
These different ways will be described in several different sections, All ways are concerned with 
aracters or machine words that arrive or depart at unpredictable times, because MDL. is 
with a person or another processor. Each "CHAR" IHEADER has a CHANNEL for the 
Hes the interrupt. and the mode of the CHANNEL tells what kinds of *CHAR* 
erupts nccur to he handled through that THEADER. 
(i) te eh 


CHANNEL is for input. *CHAR™ occurs every time an “interesting” character (see below) 
is received from the CUANNEL's real terminal, or any character is received from the 
cw scude-ter or a character or word is received from the CHANNEL's Network 
socket jdeed (in he ITS version) the operating syst 


generates an interrupt for any 

(2) If the CHANEL is for outpur to a pseudo-terminal or Network socke 
time a character or word is wanted. 

(3) IF the CHANKEL is for output to a terminal, "CHAR" occurs every time a line-feed character is 
SuRpUt oF (in the ITS version) the operating system generaies a screen-full interrupt for 
the terminal 


“CHAR™ occurs every 


21.8.1. “CHAR received 


A handler for an input “CHAR interrupt on a real terminal must take two arguments: the 
CHARACTER which was typed. and the CHANNEL on which it was typed. 


In the ITS version, the 
namely 9 throw 


teresting” characters are those “enabled for interrupts” on a real terminal, 
7G, *K through ~_, and DEL (that is, ASCIT codes 0-7, 13-37, and 177 octal). 


In the Tenex and Tops-20 versions, the operating system ean be told which characters typed on a 
terminal should cause this interrupt to occur, by calling the SUBR ACTIVATE-CHARS with © STRING 


argument containing those characters (no more than six, all with ASCII codes less than 33 octal). If 
falled with no argument. ACTIVATE-CHARS returns a STRING containing the characters that currently 
interrupt. Initially. only *G, *S, and 70 interrupt 

Ani ht), the SUBR QUITTER 


tial MDL already hax "CHAR" enabled on ,INCHAN with priority 6 (e 
for a bandicr, to cun im #PROCESS 0 (the run I 

addition, every time a new CHANNEL is OPEHed ial, a similar THEADER and 
HANDLER are associated with that new CHANNEL automatically. ‘These automatically-genera 
THEADERs and HAHDLERS use he standard machinery. and they can be DISABLEd or OFFed at w' 
However, the THEADER for ,INCHAN should not be OFFe: knows that $ is typed only by an 
interrupt! 
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Example: the following causes the given message to be printed out whenever a ~Y is typed on 
SINCHAN: 


<SET H CHANDLER <GET .INCHAN INTERRUPT 
#FUNCTION ((CHAR CHAN) 
#OECL ((VALUE) ANY (CHAR) CHARACTER (CHAN) CHANNEL) 


<AND < CHAR 1\"¥> 
SPRING * [Some of my best friends are ~Ys.} ">>)>>5 
#HAHDLER #FUNCTION ((CHAR CHAN) ...) 


<+ 2 “¥ [Some of my best friends are ~Ys.J 2>$ 
| 4 


<OFF HDs. 
#HANDLER #FUNCTION (...) 


Note that occurrences of "CHAR" do 
omitted From the input stre: 


t wait for the $ to be typed, and the interrupting character is 


A "CHAR" interrupt can also be associated with an input CHANNEL open to a Network socket (*NET* 
device). A handicr gets applied to a NETSTATE array (which see) and the CHANNEL 


In the ITS versio 
pscudo-terminat (" 
input. These inte 
| handi 


a "CHAR" interrupt can also be associated with an input CHANNEL open to a 
Ty" device and friends). An interrupt occurs when a character is available for 
PIs are set up in exactly the same way as real-terminal interrupts, except that a 


gets applied to only one argument. the CHANNEL. Pseudo-terminals are not available in the 
J Tops-20 versions, 


For any other flavor of ITS 
CHANNEL 


nel interrupt, a handler gets applied to only one argument, the 


| 21.8.2. "CHAR" wanted 


A "CHAR 
device). A 


lerrupt can be associated with an output CHANNEL open to a Network socket ("NET* 
andler gets applied to a NETSTATE array (which see) and the CHANNEL. 


Tn the ITS version, a "CHAR" interrupt can also be associated w 
Pseudo-terminal ("STY" device and friends) 
Reeds a character (and the operat 
argument, the CHANNEL. Pseudo- 


han output CHANNEL open to a 

An interrupt occurs when the program at the other end 

ig-system buffer is empty). A handler gets applied to one 
als are not available in the Tenex and Tops-20 versions. 


21.8.3. “CHAR fF 


A handler for an ouput "CHAR* interrupt on a real termninal must take one or two arguments (using 
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“OPTIONAL” of "TUPLE": if two arguments are supplied by the interrupt system. they are the line 
number (F1X) and the CHANNEL, respectively, and the interrupt is for a line-feed: if only one 
argument is supplied (only in the ITS version), it is the CHANNEL, and the interrupt is for a Full 
the supplied fine number comes from the CHANNEL, and it may not be 
alters it in subtle ways, for example, via IMAGE calls or special control 
ters. (The program can compensate by PUTting the proper line number into the CHANNEL.) 


rate If the prog 


GC" occurs just after every garbage collection. Enabl 


g this interrupt is the only way a program 
andler for "GC* takes three arguments. The 
first is a FLOAT indicating the number of scconds the garbage collection took. The second argument 
is a FIX indicating the cause of the garbage collection, as follows (chapter 22) 


can know that a garbage collection has occurred. A 


0. Program called GC 
1. Movable storage was exhausted 
2. Control stack overflowed. 
3. 
1 


Top-level LVALs overflowed. 
GVAL vector overfiowed. 

5. TYPE vector averflowed. 

6. Immovable garhage-collected storage was exhausted 

7. Internal stack overflowed. 

8. Both control and internal stacks overflowed (care). 

9. Pure storage was exhausted. 

10. Second. exhaustive garbage collection occurred. 


The third argument is an ATOM indicating what initiated the garbage collection: GC-READ, BLOAT, 
GROW, LIST. VECTOR, SET, SETG, FREEZE, GC, NEWTYPE, PURIFY, PURE-PAGE-LOADER (pure 
storage was exhausted), or INTERRUPT-IANDLER (stack overflow, unfortunately) 


21.8.5. "DIVERT-AGC 


"DIVERT-AGC™ (“Automatic Garbage Collection”) occurs just before a deferrable garbage collection 
that is nccded because of exhausted movable garbage-collected storage. Enabling this interrupt is 
the only way a program can know that a garbage collection is about to occur. A handler takes two 
arguments: a FIX telling the number of machine words needed and an ATOM telling what initiated 
the garbage collection (see above). If it wishes, a handler can try to prevent a garbage collection by 
calling BLOAT with the FIX argument. If the pending request for garbage-collected storage cannot 
then be satisfied. a garbage collection occurs anyway. AGC-FLAG is SET to T while the handler is 
ng. 50 that new storage requests do not try to cause a garbage collection. 
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21.8.6. "CLOCK: 


rl HeLocK™, whe Lied, occurs every half second (the ITS “slow-clock” tick). It is not available in 
the Tenex and Tops-20 versions. It wants handlers which take no arguments. Example: 


<ON "CLOCK" <FUNCTION () <PRINC "TICK ">> 1> 
21.8.7. "BLOCKED" 


BLOCKED" occurs whenever any PROCESS (not only the PROCESS which may be in a HANDLER) starts 
Waiting for rernin That is, an occurrence indicates that somewhere, somebody did = READ, 


1 inpar 


REAOCHR, NEXICHR, TYT, ete. to a terminal. A handler for a "BLOCKED" interrupt should take one 
argument, namely the PROCESS which started waiting (which will also be the PROCESS in which the 
| handler ruins, if no specific one is in the HANDLER), 


Example: the following will cause MDL to acquire a * prompting el 


<ON "BLOCKED" #FUNCTION ((IGNORE) <PRINC !\">) 5> 


21.8.8. "UNBLOCK 


a 


BP SECs cconctsweneeet ax SUESCI iypedssn’s jarniealiit'a, posites Wan tanetoe ud 


21.8.9. "READ™ and “WRITE* 


*READ" and “URITE 
are oft 
object. A “read reference” to an ATi 


th read or write references to MDL objects. These interrupts 

the interrupt is often called “monitoring” the associated 
local value includes applying BOUND? or ASSIGNED? to the 
ATOM; similarly for a global value and GASSIGNED?. If the INT-LEVEL is too high when "READ" or 
WRITE™ occurs. an crror occurs, because occurrences of these interrupts cannot be queued, 


Monitors are set 1p with EVENT or ON, using a locative to the object being monitored as the extra 
ay a CHANNEL is given for “CHAR™. A handler for "READ™ takes two arguments: 
the locative and the FRAME of the function application that makes the reference. A handler for 


“WRITE™ tak ve, the new value, and the FRAME. For example: 


which argume 


<SET A (1 2 3928 


(23) 
<SET B <AT .A 2398 
eloct 2 
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<ON "WRITE" CFUNCTION (083 VAL FRM) 
#DECL ((VALUE VAL) ANY (089) LOCATIVE (FRM) FRAME) 
<cRLF> 
PRINC "Program changed *> 
<PRINI .0B> 
PRINC * to 
<PRINI .VAL> 
<PRINC * via “> 


<PRINI .FRM> 
<CRLF>> 
40 .0>s 

HANDLER #FUNCTION (...) 

<1 A 1098 

(10 2 3) 

<2 .A 2038 

Program changed #LOCL 2 to 20 via #FRAME PUT 

(10 20 3) 

OFF "WRITE* .0>8 


#INLADER #Loct 20 


21.8.10. *sysoown" 


"SYSDOWN" occurs when a system-going-down or syster 
not available in the Tenex and Tops-20 versions. If no THEADER is associated and enabled, a 
warning is printed on the terminal A handler takes one argument: a FIX giving the number of 
thirtieths of a sccand until the shutdown (-1 for a reprieve). 


revived signal is received from ITS. It is 


218.11. "ERROR* 


Tn an effort to simplify error handling by programs, MDL has a facility allowing errors to be 
ha RROR to a user function is a distasteful method, not safe if any 
bugs are around, An "CRROR™ interrupt wants a handler that takes any number of arguments, via 
“TUPLE. When an error occurs. handlers are applied to the FRAME of the ERROR call and the TUPLE 
Of ERROR arguments. If a given handler “takes care of the error”, it can ERRET with a value from the 
ERROR FRAME. after having done <INT-LEVEL 0>. If no handler takes care of the error, it falls into 
the normal CRROR 


d like interrupts. SETGing 


If an error oc LEVEL greater than or equal to that of the "ERROR™ interrupt, real 
ERROR will be called, because “ERROR™ interrupts cannot be queued. 
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21.812. "IPC" 


“IPC™ occurs when a message is received on the ITS IPC device (chapter 23). It is not available in 
the Tenex and Tops-20 versions. 


21.8.13, "INFERIOR" 


“INFERTOR™ occurs when an inferior ITS process interrupts the MDL process. It is not available in 
the Tener and Tops-20 versions. A handler takes one argument: a FIX between 0 and 7 inclusive, 
telling which inferior process is interrupting 


21.8.14. "RUNT® and 


FAUT 


These are not available 


the Tenex and Tops-20 versions. 


*RUNT", if enabled. occurs 
SRUNTINER Witix-or-/ 

is called with no argen 
occurs, or #FALSE () if the interr 


s seconds of MDL running time (CPU time) after calling 
/>, which returus its argument. A handler takes no arguments, If RUNTIMER 
ns a FIX, the number of run-time seconds left until the interrupt 
pt is not going to occur. 


TREALT", if enabled. occurs every W seconds of real-world time after calling <REALTIMER W:fix-or- 
Hoat>, which returns its A handler takes no arguments. <REALTIMER 0> tells the 
operating system not to gencrate realtime interrupts. If REALTIMER is called with no argument, it 
ceturns a FIX, the number of real-time seconds given in the most recent call to REALTINER with an 
argument, or #FALSE () if REALTIMER has not been called. 


21.8.15. “Dangerous” Interrupts 


Sepyn Cmemory-protection violation") occurs if MDL tries to refer to a storage address not in its 
address space. "PURE" necurs if MDL tries to alter read-only storage. "ILOPR" occurs if MDL 
exect al instruction Coperator"). "PARITY" occurs if the CPU detects a parity error in 
MDL’s address space. All of these require = handler that takes one argument: the address (TYPE 
WORD) Following th ction that was being executed at the time. 


es an il 


OC" occurs if MDL tries to deal illegally with an 1/0 channel. A handler must take two 
Sruments: a thrce-clement FALSE like one that OPEN might return, and the CHANNEL that got the 


Ideally. these interrupts should never occur. In fact, in the Tenex and Tops-20 versions. these 
interrupts always go to the superior operating-system process instead of to MDL. In the ITS 
version, if and when a “dangerous” interrupt docs occur: 
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If no THEADER iy associated with the interrupt, then the interrupt goes to the superior 
operating-system process. 

Tf an INCADER is associated but disabled, the error DANGEROUS-INTERRUPT-NOT-HANOLED occurs 
(FILE-SYSTCM-ERROR for *10C*). 

If an THEADER is associated and cnabied, but the INT-LEVEL is too high. the error ATTEHPT-TO- 
DEFER-UNDEF ERABLE- INTERRUPT occurs. 


219. User-Defined Interrupts 


TERRUPT) 


If the interes 


pI name given to EVENT or ON is not one of the standard predefined interrupts of MDL, 
a Min CINTERRUPTS> and an associated IHEADER anyway, making the 
You are setting up 2 “program-defined™ interrupt. 


Program-defined interrupts are made to occur by applying the SUBR INTERRUPT, as in 


INTERRUPT name. a orgn> 


where name is a STRING, ATOM oF THE 
handlers for the interrupt 


ADER, and argi through arg are the arguments wanted by the 


If the interrupt specified by 


TERRUPT is enabled, INTERRUPT returns T; otherwise it returns 
#FALSE ()~ Ail the usual priority and queueing rules hold, so that even if INTERRUPT returns T, it 
is possible that nothing “really happened” (yet) 


INTERRUPT can alsa he used to 


tise “artificial” occurrences of standard predefined MDL interrupts. 


Making a program-lefined inter 


occur is similar to calling a handler directly, but there are 
differences. The value returned by a handler is ignored, s0 side effects must be used in order to 
communicate information back 10 the caller, other than whether any handler ran or will run. One 
good tse for ery of INT- 

not run concurrently. For example, if a 

to process the buffered 
redictable changes to the 
buffer during the processing -- and it is natural to invoke the processing with INTERRUPT. 


Program-defined interriy 


is to use the priority and queueing machi 
LEVEL to control the execution of functions that 
CHAR" handler just deposits characters in a buffer. 1 


1 a Functio 


characters should probably run at a lrigher priority level -- to prevent un 


more exotic applications, 


UPT can signal a condition to be handled by an unknown 


wnber of independent and “nameless” functions. The functions are “nameless” because the caller 
doesn't know their names. only the name of the interrupt. This programming style is modular and 
event-driven. and it is one way of implementing “heuristic” algorithms. In addition, each HANOLER 


has a PROCESS in which to 
do 
RESUME 


its handler, and so the different handlers for a given condition can 
im different environments quite easily, with less explicit control than when using 
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21.10. Wailing For Interrupts 


21.10.1. HANG 


ptibly, wi 
handy for a program that ea 


ing any CPU time, potentially forever. HANG is 

jot do anything until an interrupt occurs, If the optional pred is 

given, it is evaluated every time an interrupt occurs and is dismissed back into the HANG: if the 

Fesult of evaluation is not FALSE, HANG unhangs and returns it asa value. If pred is 1 
amed ACTIVATION somewhere to which a handler can return. 


given, 


2.10.2, SLEEP 
<SLEEP fime:tix-or-float pred> 


suspends executi 


interruptibly. without con: 


ming any CPU time, for time seconds, where time is 
negative. and then returns T. pred is the same as for HANG. 
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Chapter 22. Storage Management 


document is that. except for special cases, MDL 
cd automatically. There is usually no need even to consider 
cement. execpt as it affects efficiency (chapter 24). This chapter gives. some 


why this is so, and covers those special means by which a program can assume 
rol of storage management. 


Programs have their st 
Storage man 
exph 


ge needs han 


The MDL 


dress space is divided into Five parts, which are usually called 


(1) movable garbage-collected space. 

(2) immovable space (both garbage-collected and not), 
(3) user pure/page space. 

(4) pure-RSUBR mapping space, and 

(5) internal storage. 


Internal storage occupies hoth the highest and lowest addresses in the address space. and its size 


The other spaces can vary in size according to the needs of the 
Generally the interpreter allocates a contiguous set of addresses for each space. 
cach space grastually fills up as new objects are created and as disk files are mapped in. The 
action taken when a space becomes full varies, as discussed below. 


never changes as MDL executes 
executing progea 


age used explicitly by 
a “garbage colicctor 
When such a suur 
garbage collector. 


MDL progeams is obtained from a pool of free storage managed by 
Storage is obtained from this pool by the SUBRS which construct objects. 
Finds thar the pool of available storage is exhausted, it automatically calls the 


The garbage col 
default, and 1 
collectors. t 


mark-sweep 


one and the jependent module that 


© from disk only during garbage collection. For 
document speaks of “the” garbage collector, which has two algorith 


22-221 Storage Management 


The MDL Programming Language 133 
{ ‘The garbage collector exauines the storage pool and marks all the objects there, separating them 

into two classes: those which cannot possibly be referenced by a program, and those which can. 
; remainder of the pool is made available for newly constructed objects. The "mark-sweep” algorithm, 
| instead. puts all ohjects in the forwer class (garbage) into tree liste? where the ebjectcconruction 


SUBRs can find the 


nd re-use their storage. 


If the request I cannot be satisfied from reclaimed storage, the garbage collector 
Will attempt to obtain more total storage from the operating system under which MDL runs, (Also, 
if there is a gross superfluity of storage space, the garbage collector will politely return some 
Storage to the operating system.) Only when the total system resources are exhausted will you 
Finally tos 


Thus, if you just “forget about” an object. that 
Storage arca is automatically reclaimed. “Object” 
storage space used in PROCESSes for functional applicati 


lose all possible means of referencing it. its 
this context includes that stack-structured 


22.1.1, Stacks and Other Internal Vectors 


Control stacks are used in MDL to control the changes 
binding. Each active PROCESS lias its own control stack. On this stack are stored LVALs for ATOMS} 
PRIMTYPE TUPLES. whicl are otherwise like VECTORS: PRIMTYPE FRAMEs, which are generated by 
calling Subroutines: and ACTIVATIONs. which are generated by calling FUNCTION with named 
ACTIVATIONs. PROG, and REPEAT. TAG and LLOC can make TAGs and LOCDs (respectively) that refer to 
{ a specific place on a specific control stack. (LEGAL? returns T if and only if the portion of the 

control stack in which its argument is found or to which its argument refers is still active, or if its 
argument doesn't care about the control stack. The garbage collector may change a non-LEGAL? 
| object 10 TYPE ILLEGAL before reclaiming it.) As the word “stack” implies. things can be put on it 

and removed from it at only one end, called the top. It has a maximum size (or depth), and 
attempting to put too many things on it will cause overflow. A stack is stored like a VECTOR, and 
| it must be GROWN if and when it overflows. 


environment caused by calling and 


A control stack is actually two stacks in one. One section is used for “top-level” LVALs -- those SET 

while the ATOM is not bound by any active Funetion’s argument LIST or Subroutine’s SPECIAL 

+ section is used for everything else. Either section can overflow, of course. 

The top-level-LVAL section is below the other one, so that a top-level LVAL will be found only if the 
1d elsewhere, namely in the other section, 


MDL also has an internal stack. used for calling and temporary storage within the interpreter and 
compiled prog It to is stored like a VECTOR and can overflow. There are other internal 
vectors that can overflow: the “global vector” holds pairs ("slots") of ATOMs and corresponding GVALs 
(globally bound” or GROUND? means that the ATOM in question is in this vector, whether oF not it 
currently has a global v and the “TYPE vector” holds TYPE names (predefined and NEWTYPEs) and 
how they are to b 
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22.2. 


Je Storage 


22.2.1. Garbage-collected: FREEZE 


La Very special circumstances, site as debugging RSUBRs, you may need to prevent an object from 
Being moved by the garbage collector. FREEZE takes one argument, of PRINTYPE VECTOR, UVECTOR. 
STRING, BYTES oF TUPLE. It copies its argument into non-moving garbage-collected space. FREEZE 
Tearas THe copy CHTYPEd to its PRINTYPE, except in the case of a TUPLE, which is changed to a 
vector. 


22.2.2. Non-garbage-collected: STORAGE (the PRIMTYPE) 


An object of PRIMTYPE STORAGE is really a frozen UVECTOR whose UTYPE is of PRIMTYPE WORD, but 
it is always pointed to by something internal to MDL and thus is never garbage-collectible. The use 
OF FREEZE is always preferable. except when for historical reasons a STORAGE is necessary. 


3. Other Storage 


User pure nce serves two purposes. First, when a user program PURIFYs (see below) MDL 
objects. they are copied into this space. Second, so-called hand-crafted RSUBRs (assembled bur not 
Compiled) cau call on the interpreter to map pages of disk files into this space for arbitrary 
purposes, 


page 


Pure-RSUBR mapping space is used by the interpreter to dynamically map pages of pure compiled 
sre eaant ite and out of the MDI. address space. Pure code can refer to impure storage through 
ine teaser vector”. another internal vector. This space is the most vulnerable to being compreseed 
in size by the long-term growth of other spaces. 


[nicenal storage has botly pure and impure parts. The interpreter program itself is pure and 


sharable. while impure storage is used for internal pointers. counters, and flags, for example, 
Pointers to the boundaries of other spaces. In the pure part of this space are most of the ATOM: in 
an initial MDL, along with their OBLIST buckets (LISTs) and GVAL slots (a pure extension of the 


global vector), where possible. A SET or SETG of a pure ATOM automatically impurifies the ATOM and 
+ ODLIST bucket as needs to be impure. 
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22.4. Garbage Collection: Details 


When either of 
through the Fol 


() A "DIVERT-AGC™ interrupt occurs if the garbage collection can be deferred temporarily by 
shifting boundarics between storage spaces slightly. The interrupt handler may postpone a garbage 
collection by moving boundarics itself with a call to BLOAT (below). 


QT 
system process (named 


garbage collec 


begins execution. ‘The “copying” algorithm creates an inferior operating- 

GC in the LTS version) whose address space is used to hold the new copies of 

jects. MDL gains access to the inferior's address space through two pages ("frontier” 

and “wintow") in ity internal space that are shared with the inferior. If the garbage collection 

| occurred bi the “mark-sweep” algori 
migh 


non-garha 


ause movable garbage-collected space was exhausted, 
be used instead (sce below), and no inferior process is created. 


| (3) The garbage collector marks all objects that can possibly be referenced hereafter. It begins with 
| the <HATH> PROCESS and the currently running PROCESS <ME>, considered as vectors containing the 
control stacks. object pointers in five registers, ete. Every object in these "PROCESS vectors” is 
imarked “accessible nt of these objects (bindings, ete), and so on recursively. The 


copying” algorithm moves objects into the inferior process's address space as it marks them. 
(4) If the garbage collection is “exhaustive” — which is possible only in the “copying” algorithm 
| then both the chain of associations and top-level local/giobal bindings are examined thoroughly, 


which takes more time but is more likely to uncover garbage therein. In a normal garbage 
| collection these constructs are not treated specially 
| (5) Finally, the “mark-sweep” algorithm sweeps through the storage space, adding unmarked objects 


address space into MDL's own, replacing old garbagey storage with the new compact storage, and 
the inferior process is destrayed. 


| to the internal free lists for later re-use. The “copying” algorithm maps the inferior process's 


KGC mvinitix exhtfalse-or-any ms-treatix> | 


causes the garbage collector to run and retue 


if th 


the total number of words of storage reclaimed. All 


Of its arguments are option 'y are not supplied, a call to GC simply causes a “copying” — | 


garbage collection, 


If min is explicitly supplied a an ary 
before gar 


ment, a garbage-collection parameter is changed permanently 
Hest number of words of “free” (unclaimed, 
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available for usc) movable garbage-collected storage the garbage collector will be satisfied with 
ng after it is done cach time. Initially it is 8192 words. If the total amount of reclaimed 
TORS, is less than min, the garbage collector will ask the operating system for enough storage (in 
N.Bs the system may be incivil enough not te grant the request: in 

© karbage collector will be content with what it has, unless that is not enough to satisfy 
x request for storage. Then it will inform you that it is losing. A large min will result in 

fewer roral garbage collections, but they will take longer since the total quantity of storage to be 
dealt with will generally be larger. Smaller mins result In shorter, more frequent garbage collections. 


this garbage collection should be “exhaustive™. It is optional, a FALSE by 
default, The difference between normal and exhaustive “copying” garbage collections is whether 
certain kinds of storage that require complicated treatment (for example, associations) are reclaimed, 
An ex age collection occurs every eighth time that the “copying” algorithm is used, oF 
Nben GE is called with this argument true, or when a normal garbage collection cannot satisfy the 


storage request 


Mie free Sives the nusubier of times the “mark-sweep” algorithm should be used hereafter for every 

ying” algorithm is used. Giving 0 for ms-freq means never to use the “marke 
and giving <CHTYPE <HIN> FIX means (effectively) always to use it. The “mark. 
mn uses considerably less processor time than the “copying” algorithm, but it never 
Birinks the Crec-storage pool, aud in fact the pool can become fragmented. The “mark-sweep™ 
aigorithm could be wseful in a program system (such as the compiler) where the size of the pool 
rarely changes, but objects are created and thrown away continuously. 


sweep 


BLOAT 
BLOAT is used 0 cause a temporary expansion of the available storage space with or without 
SAeDeARS {he garhage-colicction parameters. BLOAT is particularly useful for avoiding unnecessary 
garbage collections when loading a large file. It will cause (at most) one garbage collection, at the 
end of w the available storage will be at least the amount specified in the call to BLOAT. 
Canes. of course, the operating system is cranky and will not provide the storage. Then you will 
get an error. SERRET 1> from this error will cause the BLOAT to return 1, which usually just causes 
You (0 lose at a later time less the operating system feels nicer when the storage is absolutely 
necessary.) 


A call 10 BLOAT looks like this: 


<BLOAT fre sth lel gib typ sto pstk 
min ple! pglb plyp imp pur dpsth dstk> 


Phere all arguments on the first line above are FIX, optional (0 by default), and indicate th 
oy 
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F 


frei mumber of words of free movable storage desired (for LISTs, VECTORs, ATOHSs, etc.) 


ber of words of free control-stack space desired (for functional application 
binding of ATOMS) 


and 


fck number of new top-level LVALs for which to leave space (SETs of ATOMS which are not 
tly bs 


gil number of new GVALS for which to leave space (in the global vector) 


typt number of new TYPE definitions for whic 


to leave space (in the TYPE vector) 
for mumber of words of immovable garbage-collected storage desired 


Psth: uumber of words of free internalstack space desired (for READIng large STRINGS, and 
alling routines within the interpreter and compiled progeams) 


Arguments on the second line above are also FIX and optional, but they set garbage-collection 
parameters permanently, as follows: 


min as for GC 


64) 


of slot 


for LVALs added when the space for top-level LVALs is expanded (initially 


palbt number of slots for GVALs added when the global vector is grown (initially 64) 
pty p mumber of slots for TYPLs added when the TYPE vector is grown (initially $2) 


imp: number of words of immoval 
(initially 1024) 


garbage-collected storage added when it is expanded 


pur number of words reserved for pure compiled programs, if possible (initially 0) 


poth: mast desirable size for the internal stack, to prevent repeated shrinking and GROWing 
Gnitiatly 512) 


Asth: most desirabl 


size for the control stack (initially 4096) 


lable when 


BLOAT returns the actual number of words of free movable garbage-collected storage av: 
it is done. 
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BLoAT- an be used with 


to “tune” the garbage collector 10 particular program 


requirements 


Fills th by inform abou of storage of argument should be a 
UVECTOR of KI does not g nent, it will provide its 
own ity ollows: the first 3 elements Indicate the number of 
zara, a itu tain causes, and the other 19 give information about 
Sertain areas of storage. In detail 
number % Nis caused by exhaustion of movable garbage-collected storage 
. z movable garbage-collected storage 
y overflow of loth stacks at the same time (rare) 


9. number of words of movable storage 

10. number of words of movable storage used since last BLOAT-STAT 
He maxinnuuens any of Sof tnovable si ting 
12. number of words of 0% isi an running 
IZ. maximus size of content stack 

14. number of words on control siack in use 

15. maximum size of control stack(s ched 

16. number of slots for top-level LVALs 

18. number of shuts for GVALs in global vector 

19. numb GVALs existing 

20. number of sters for TYPES in T or 


22, muss ovable garbage-collected storage 

25, number of wards of immovable storage unused 

24. size of ous immovable-storage block 
of words on internal stack 

26. number of words on 


f internal stack ever reached 
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2.8. GC-MO! 


<GC-MON prea> 
(Cgarbage-collector monitor’) determines whether or not the interpreter will hereafter print 
information on the terminal when a garbage collection starts and finishes, according to whether or 
hot its argument is true, It returns the previous state. Calling it with no argument returns the 


current state, The initial state is false. 


When typing is enabled, the “copying” garbage collector prints, when it starts: 


GIN reason subr-that-caused:atom 


and, when it Finishes 


GOUT «eco 


i2-needed 


rh-sweep” garbage collector prints HSGIN and HSGOUT instead of GIN and GOUT. | 


22.9. Related Subroutines 


Two SUDRs. described next. 0 
poin 


¢ only part of the garbage-collector algorithm, in order to find all 
fers to an oliject. GC-DUMP and GC-READ, as their names imply, also use part in order to 
translate between MDL objects and binary representations thereof. 


22.9.1, SUBSTITUTE 


<SUBSTITUTE new:any ofdany> 


returns old, after causing a miniature garbage collection to occur, during which all references to old 

are chauged s0 as to refer to new. Neither argument can be of PRINTYPE STRING or BYTES or LOCD 

oF live on the control stack. unless both are of the same PRIMTYPE. One TYPE name cannot be 

substituted for another. One of the few legitimate uses for it is to substitute the “right” ATOM for 

the “wrong” one. after OBLISTs have been in the wrong state. This is more or less the way ATOMs are 
impurified. It is also useful for uulinking RSUBRS. SUBSTITUTE returns old as a favor: unless you 
AN onto old at that point, it will be garbage. 


22.9.2. PURIFY 


<PURIFY any-t any-N> 
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Feturis its last argument. after causing a miniature garbage collection that results in all the 
arguments becoming pure and sharable, and ignored afterward by the garbage collector. No 


peeument can live on the control stack or be of PRINTYPE PROCESS or LOCD oF ASOC. Sharing 
between operating-system processes actually occurs after a SAVE, if and when the SAVE file © 
RESTOREd. 


22.9.2 Storage Management 
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Chapter 23. MDL as a System Process 


This chapter treats MDL considered as execut 
between MDL and 


g in an operating-system process, and interactions 
1eF operating-system processes. See also section 21.8.13, 


23.4. TIME 


TIME takes any n 
the number of seco 


her of arguments, which are evaluated but ignored, and returns a FLOAT giving 

ds of CPU time the MDL process has used so far. TIME is often used in 
achinc-level debugging to examine the values of its arguments, by having MDL’s superior process 
(say. DDT) plant a breakpoint in the code for TIME. 


23.2. Names 
<UNAME> 


Feturns a STRING which is the“ 


luser name” of MDL's process. This is the “uname” process-control 
variable in the ITS version 


the logged-in directory in the Tenex and Tops-20 versions. 


<XUNAMED 


Contra aa TRING which Is the “intended user name” of MDL's process. This is the "xuname” process- 
Sontrol variable in the ITS version and identical to CUNAMED in the Tenex and Tops-20 versions, 


<aNAME> 


Fara ee  ARING which is the "job name” of MDL's process. This is the “jname” process-control 
Variable in the ITS version the SCTHM name in the Tenex and Tops-20 versions. The characters 


Cage, 19 the “sixbit™ or “printing” subset of ASCII, namely those between, CASCIT Maoes enna 
ASCII #13785 


<XONAME> 
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returns a SIRTNG wih 


s the “intended job name” of MDL's process. This is the “xjname” process- 
0! variable in the IT'S version and identical to ONAME> in the Tenex and Tops-20 versions. 


Exits 
<Locour> 


Taser BLS 10 JoK out the process in which it is executed. It will succeed only if the MDL is the top- 
ng disowned or as a daemon. If it succeeds, it of course never 


#FALSE () 


returns, If it does not, it ret 


<quir 


causes MDL. to stop running. in an orderly manner. In the ITS version, it 1s equivalent to a 
1 locour'n, i n. In the Tenex and Tops20 versions, it is equivalent to  controhe signal, 


| <VALRET string-or-fied 


Cvalue rer 


'n") seldom returns. It passes control back up the process tree to the superior of MDL, 
Passing its arguinent as a message to that superior. If it does return, the value is FALSE (). If the 
PiEument is a STRING, it is passed to the superior as commands to be executed, via -VALUE in the 
see raion and RSCAN in the Tops-20 version. If the argument is a FIX, it Is passed to the superior 
seein, effective address” of a .BREAK 16, instruction in the ITS version and ignored in other 


25.4. Inter-peocess Co 


| Atl of the suans in this section are available only in the ITS version. 


The IPG Cinter-process communication") device is treated as an 1/0 device by ITS but not 
explicitly so by MDI: that is, it is never OPENed. It allows MDL to communicate with other 1S 
Processes by means of iG Messages. A process identifies itself as sender or 
COMBA! of a message with a ordered pair of “sixbit” STRINGS, which are often but not always 
SUNAME> and <JNAME>. A message lias a “body” and a “type” 


ding and receiv 


23.4.1, SEND aud SEND-WAIT 


<SEND ottiernt othern? body type myname! myname2> 
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| <SEND-WAIT othernt othern2 body type mynamel myname2> 


both send an IPC message 10 any process that is listening for it as ofhern! othern2. body must be 
her a STRING, or a UVECTOR of objects of PRINTYPE WORD. type is an optional FIX, 0 by default, 
which is part of the infor nents are from whom the 
E> and <ONAME> respectively are used by 

while SEND-WAIT hangs until someone wants it 


tion the other guy receives. The last two arg. 
1. These 1, and <UH 
default, SCND returns a FALSE if no one is listen: 


Both return Tif so 


‘ane accepts the message. 


23.4.2. The "IPC" Interrupt 


n your MDL process receives an IP 
with either Cour or six 

othern? are 

<UNAME> and <atiame> 


= message, *IPC* occurs (chapter 21). A handler is called 
uments gleaned from the received message. body. type, othernt, and 
pplicd. myname! and myname? are supplied only if they are not this process's 


There is a built-in HANDLER for the "IPC* interrupt, with a handler named IPC-HANDLER and 0 in the 

PROCESS sint, ‘The handler prints out on the terminal the body. whom it is from, the type if not 0. 

and whom it is to if not CUNAME> CINAME>. If the type is 1 and the body is a STRING, then. after 
is printed out, the STRING is PARSEd and EVALuated 


23.4.3. IPC-OFF 


<IPC-OFF> stops all listening on the IPC device. 


] 23.4.4. 1PC-on 


<IPC-ON mynamel myname2> 


Sauses listening on the IPC device as myname! myname2. If no arguments are provided, listening is 
©n <UNAME> <JNANE>. When a message arrives, *IPC* occurs 


MDL is ini 
interrupt wil 


ly listening as <ul 


AME> <ONAME> with the built-in HANDLER set up on the "IPC™ 
ia priority of 1 


23.4.5, DEMSIG 


<DEMSIG daemon:string> 


Rguals to ITS (directly, not via the IPC device) that the daemon named by its argument should run 
How. It returns Tif the dacmon exists, #FALSE () otherwise. 


— 
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Chapter 24. Efficiency and Tastefulness 


24.1. Efficiency 


Actually. you make MDL. progam 
interpre 


efficient by thinkin 
do less, Some guidelines, 


hard about what they really make the 
in order of decreasing expense: 


J making the 


(3) PROG and REPEAT are expensive. except when com 


Explai 


(1) Unnecessary use of free storage (creating needless LISTs, VECTORS, UVECTORs, etc.) will cause the 


garbage collector to run more often. This is expensive! A fairly large MDL (for example, 60 000 $6. 
Bit words) can take ten seconds of PDP-10 CPU time for a garbage collection. Be especially wary of 


gonsteuctions like (0). Every time that is evaluated, it creates a new one-element LIST. It te too 
Sasy fo weite such things when they aren't really necessary. Unless you are doing PUTs or PUTRESTs 
on it. use '(0) instead. 


(2) Sad. but true. Also generally ignored. If you call a fu 
fone line). you are 


ction only once. of if it is short (less than 
nuch better off in speed if you substitute its body in by hand. On the other 
INET ee, MAY BE much worse off in modularity. There are techniques for combining several 


FUNCTI RSUBR (with RSUBR-ENTRYs}, either during or after compilation, and for 
changing FUNCTIONs inte MACROs. 


(3) PROG iy almost never necessary 


given (a) "AUX" in FUNCTIONS: (b) the Fact that FUNCTIONs can 
contain any number of FORM 


ss (c) the fact that COND clauses can contain any number of FORMs: and 
(a) the fact that wew variables can be generated and initialized by REPEAT. However, PROG may be 


wee Ayhew an error occurs. to establish bindings needed for cleaning things up or interacting with 
a huma 


The use of PROG may be sensible when the normal flow of control can be cut short by unusual 


y 
» that the program wants to RETURN before reaching the end of the PROG. Of course, 
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nested COND can accomplish the same end, but deep nesting may tend to make the program 
unreadable. For example: 
<PROG (TCMP) 
<OR CSET TEMP <OK-FOR-STEP-17>> 
<RETURN .TEMP>> 
<STEP-1> 
<OR <SET TEMP <OK-FOR-STEP-27>> 
RETURN. TEMP>> 
STEP-2>> 


<COND (<OK-FOR-STEP-17> 
STEP-1> 
COND (OK-FOR-STEP-27> 
<STEP-2>)>)> 


By the way. REPEAT is faster than GO ima PROG. The <GO x> FORM has to be separately interpreted, 
Fight? In fact. if you organize things properly you very seldom need a GO; using GO is generally 
considered in some cases it's needed. Very few. 


vad style’ 


In many cases, a REPEAT cam be replaced with a MAPF or MAPR, or an ILIST, IVECTOR, ete. of the 
For 


<ILIST .N '<SET X <* x 1>> 


Which generates an N-element LIST of successive numbers starting at X+1. 
g ic 


Whether a program is 
garbage collection aj 
same. Fi 


lerpreted of compiled. the first two considerations mentioned above hold: 
{function calling romain expensive. Garbage collection is, clearly, exactly the 
tion calling is relatively more expensive. However, the compiler careth not whether you 
tse REPEAT. GO. PROG, ILIST, MAPF, or whatnot: it all gets compiled into practically the same 
thing. Mowever. the REPEAT of PROG will be slower if it has an ACTIVATION that is SPECIAL or used 
other than by RCTURN of AGAIN 


24.11. Example 


There follows an example of a FUNCTION that docs many things wrong. It is accompanied by 
commentary, and two better versions of the same thing. (This function actually occurred in 
Practice. Needless to say. names are withheld to protect the guilty.) 


this is terrible. Its purpose is to output the characters needed by a graphics 
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tert Wy catacn p CouneEtiNg a set Of points. The points are specified by two input Hsts: X 
values au eerste Output channel is the third argument. The actual characters for each line 


are returned in a LIST by the function TRANS. 


SOEFINE PLOTVDSK (x ¥ CHN *AUX® L LIST) 
COND (<NOT <==? <SET L CLENGTH .X>><LENGTH .¥> >> 
SERROR "LENGTHS NOT EQUAL">)> 
<SET LIST (29)> 
REPEAT ((N 1)) 
<SET LIST (1.LIST 1<TRANS €.N -X> <.N .¥93)> 
COND (<G? <SET N <+ .W 1>> .L3<RETURN .N>)> > 
REPEAT ((N 1) (L1 <LENGTH .LIST>)) 
<PRINC ASCII <.N .LIST>> .CHND 
COND (<G? <SET N <+ NW 19> .LI> 
<RETURN "DONE">)> » 


Comments: 


(1) LIST is only temporarily necessary. It is just created and then thrown away. 


the previous elements of LIST every time it 


(2) Worse, the cousteuet (1 LIST 1<TRANS ...>) cop 


() Indexing down the elements of LIST as in €.W .LIST> takes a long time, If the LIST is Jong. <3 
2 or <4 - <> is not worth worrying about, but <10 ...> is. and €100 <-> tenes quite a wi 

Even if the indexing were not phased out, the compiler would be happier wits chat -LIST .N>. 

(4) "The variable Cit is unnecessary if OUTCHAN is bound to the argument CHANNEL. 

tre demons itl te call ERROR in the same way that F/SUBRS do. This includes using an ATOM from 


the ERRORS OBLIST (if one is appropriate) to tell what is wrong. and it incleoes identifying yourself. 


So, do it this way: 
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DEFINE PLOTVDSK (x Y OUTCHAN) 
*DECL ((OUTCHAN) <SPECTAL CHANNEL?) 
<COND (<NOT <==? CLENGTH .X> <LENGTH .Y29> 


SERROR VECTOR-LENGTHS-DIFFER!-ERRORS PLOTVDSK>)> 
<PRINC <ASCII 29>> 


REPEAT () 


<COND (CEMPTY? .x> <RETURN *DONE*>)> 
<REPEAT ((OL <1 .x> <1 .¥>)) 
<PRINC ASCII <1 .0L3>5 
COND (CEMPTY? CSET OL <REST .oL>>> 
<RETURN> )>> 
<SET X <REST .x>> 
ESET ¥ <REST 1¥99>> 


Repegurse. IF you kuow how tong is the LIST that TRANS returns, You can avoid using the inner 
FAP a ch and have explicit PRINCS for each element. ‘This canbe done cone better by using 


HAPF, as in the neat version, if 48 the previous one, but uses MAPF 


Which does exactly the same thi 
to do the RESTi 


1g aud the end conditional: 


<DEFINE PLOTVDSK (x ¥ OUTCHAN) 
*DECL (COUTCHAN) <SPECIAL CHANNEL?) 
<COND (<NoT <LENGTH .X> CLENGTH .¥>>> 


SERROR VECTOR-LENGTHS-DIFFER!-ERRORS PLOTVDSK>)> 
<PRINC <ASCII 2955 


SHAPE <> 
FUNCTION ((XE YE) 


SMAPE <> AFUNCTION ((T) <PRINC CASCII .1>>) <TRANS .XE .YED>>) 


x 
ys 
"DONE™> 


earlier ones when adding 

cument of ,LIST: the el 
final call te LIST. If you 
stack yourself, ina TU 


you can avoid copying 
F or MAPR with a first 
are put on the control stack rather than in free storage, until the 


Know how many clements there will be, you can put them om the ental 
for that purpose. Another way is used when REPEAT is necessar 
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REPEAT ((FIRST (1)) (LAST .FIRST) ...) 
#DECL ((VALUE FIRST LAST) LIST 


“SET LAST <REST CPUTREST .LAST (.NEW)>9> 
“RETURN CREST .FIRST>> 


Hera iGhST, siway® points to the current lest clement of the LIST 
evaluation, the <SeT Last 


+? Could also be written <PUTREST 


Because of the order of 
LAST CSET LAST (.NEW)>>. 


24.3. Re 


d-only Free Variables 


uses the value of a free variable (<GVA 


L_unmarifest:atom> oF <LVAL special:etom>) 
without changing it, th piled version may be more efficient if the value te assigned to a 
Sammy UNSPECTAL ATOM in the Function’s “AUX: lie nore, is teue because an UNSPECIAL ATOM gets 
compiled ‘into a stot on the contro! which is accessible very quickly. The trade-off te 
Than teres eitwhile If a special Is ceferenced more then oe oF if an unmanifest is referenced more 
than twice. Example 


SDEFINE MAP-LOOKUP THINGS *AUX* (DB ,DATA-BASE)) 


crane (GVALUE) VECTOR ( THINGS’ DB) <UNSPECIAL <PRIMTYPE LIST>>) 
SMAPF VECTOR <FUNCTION (T) <HEHQ .T .0B>> -THINecoy 


nid Local Values 


In the interpreter the sequence .x .x x 
between the GVAL and LVAL men 
LVAL of the same ATOM frequently 
control stack references). 


X is slower than .x .x x _x 
nisms (appendix 1). Thus it is not good 
unless references to the LVAL will be et 


because of interference 
to use both the GVAL and 
‘ompiled away (made into 


king Offsets for Arrays 


It is often the case th 


} 4n element independentiy 
than integ 


of other oP oerasatly. it Is a good idea to use names (ATOMS) rather 
Tee rant OF SvEN OFFSETS) for offsets Into the array. te make future changes easier. 
Tae aly. Ht is % good idea to use the GVALs of the wan ATOHs to remember the actual FIXes, so that 
{he ATOMs can be MANIFEST for the compliers bens Thirdly, to establish the GVALs, both the 
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| interpreter and the compiler will be happier with <SETG name offset> rather th: 
(*TUPLE® T) <offset 1.1>> 


1 <DEFINE name 


24.6. Tables 


‘There are several ways 


MDL to store a table, that is, a collection of (names and) values that will 
be searched, Unsurprisingly, choosing the best way is often dictated by the size of the table and/or 


the nature of the (names and) values. 


For a small table, the names and values can be put in (separate) structures -- the choice of LIST or 
array being determined by volatility and lim HEMQ or MEMBER. 

ents are completely 
mrcan be used, kept sorted, and searched with a binary search. 


lability ~ which are searched usi 
This method is very space-efficient. If the table gets larger, and if the ele 
orderal 


For a large table. where reasonably efficient searches are required, a hashing scheme is probably 


best. Two methods are available in MDL: associations and OBLTSTs. 


In the First method, PUTPROP and GETPROP are used. which are very fast. The number of hashing 
buckets is fixed. Duplicates are climinated by ==? testing. If it is necessary to use =? testing. or to 
duplicate the table in a LIST or array, to be used only for 


find all the entries in the table, you ea 


those # 


In the second method. INSERT and LOOKUP on a specially-built OBLIST are used. (If the names are 
not STRINGs. they can be converted to STRINGS using UNPARSE, which takes a little time) ‘The 


number of hashing buckets can be chosen for best efficiency. Duplicates are eliminated by =? 
testi 


1g: MAPE/R can be used to Find all the entries in the table. 


The beauty of decply-nested control structures in a single FUNCTION is definitely in the eye of the 
beholder. (PPRINT, a pre-loaded RSUBR, finds them trying. However, the compiler often produces 
better code from them.) If you don't like excessive nesting, then you will agree that 


<SET xX .2-> 
<COND (<0? .X> 22.) 2.29 


looks better than 
<COND (<0? <SET X ...9> 02.) 22> 


and that 


24.5 - 24.7 Efficiency and Tastefuiness 


a | 
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<REPEAT 
coun 
( >> 
looks better than 
<REPEAT 
conD 
( RETURN ...>) 
(ELSE ...)> 


You can see the nature of 


choices. Nesting is st 


H and all better than GO. 
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Appendix 1. A Look Inside 


This appendiy tells about the mapping between MDL objects and PDP-10 storage -- in other words, 

1 the way things look “on the inside". None of this information is essential to knowing, how te 

program in MDL. but it does give some reasons for capabilities and restrictions that otherwice you 

ze. ‘The notation aud terminology get a little awkward in this discussion, because we 

are in a twilight zone between the worlds of MDL objects and of bit patterns, In general the words 

] nd in diagrams refer to bit patterns not MDL objects. A lowercease word (like 
tuple") refers to the storage necupied by an object of the corresponding PRIMTYPE (like TUPLE) 


phrases appeari 


First some terminology needs discussion, The sine qua non of any MDL object is a pair of 36-bit 


ds. In general, lists consist of pairs chained together by pointers (addresses), and 
Vectors consist Of contiguous Blocks of pairs. ==7 essentially tests two pairs to see whether they 
contain the same hit patterns 


The First (lower-addressed) word of a pair is called the TYPE word, because it contains a nuimeric 
TYPE cowle that represents the object's TYPE. The second (higher-addressed) word of a pair is called 
ihe v ins (part of or the beginning of) the “data part” of the object. The 
TYPE word (and sometimes the value word) is considered to be made of a left half and a right half. 
We will picture a pair like this: 


te word. because it can 


where a vertical bar in the middle of a word means the word's h 
can sce that the TYPE cade is confined to the left half of the TYPE word. (Half-)words are sometimes 
subdivided into ficlds appropriate for the context: fields are also pictured as separated by vertical 
bars. The right half of the TYPE word is used for different purposes depending on the TYPE of the 
‘object and actual location of the value. 


ives are used independently. You 


| Act 


ly the 18-bit TYPE Field is further decoded. The high-order (leftmost) bit is the mark bit, used 
exclusively by the garbage collector when it runs. The next two bits are monitor bits, used to cause 
"READ" and “WRITE” interrupts on read and write references to the pair. The next bit is used to 
differentiate between list clements and vector dope words. The next bit is unused but could be used 
in the fut tor. The remaining 13 bits specify the actual TYPE code. What 
CHTYPE does is to copy the pair and put a new TYPE code in the new p: 


for an “execu 


Each data TYPE (predefined and WENTYPEs) must belong to one of about 25 “storage allocation 
classes” (roughly corresponding to MDL PRINTYPEs). These classes are characterized primarily by 
the manner in which the garbage collector treats them. Some of these classes will now be described. 
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“One Word’ 


This class includes a 
available) TYPEs in 1h 


data that are not pointers to some kind of 


class are of PRIMTYPE WORD. Example: 


structure. All external (program- 


“Two Word” 


The members of this class are all I 
Of PRIMTYPE LIST. Example: 


bit pointers to list elements. All external TYPEs in this class are 


where pointer is a pointer to the First list element 


If there are no elements, pointer is zero; thus 
empty objects of PRIMTYPE LIST are 


if their TYPEs are the same. 


“Two N Word” 


Members of this class are all 


“counting pointers” 10 blocks of two-word pairs. The right half of a 


Dointer is an address. and the left half is the negative of the number of 36-bit words in the 
Crem jniis Format is tailored to the PDP-10 AOBIN instruction) The number of pairs te the clere 


PRED is hale that number, since each pair is two words All external TYPEs itt thie clan ee ee 
PRIMTYPE VECTOR. Example: 


! vector 
[oe ien oe 
1 length 


Where length is the LENGTH of th 


VECTOR and pointer is 
selected by an NTH arg 


ent of 1) of the VECTOR 


he location of the start (the element 
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°N Word 
This class is the same as the previous one, except that the block contains objects all of the same 


ut individual TYPC words. The TYPE code for all the elements is in vector dope words, 
at addresses just larger than the block itself. Thus, any object that carries information in 


TYPE with 


its TYPE word cannot go in the block: PRINTYPEs STRING, BYTES, TUPLE (and the corresponding 
Jocatives LOCS, LOCB, LOCA), FRAME, and LOCD. All external TYPEs in this class are of PRIMTYPE 


UVECTOR. Examy 


1 UVECTOR 


¢ length is the LENGTH of the UVECTOR and pointer points to the beginning of the UVECTOR 


Byte String” and "Character String 


These two classes are almost identical, Byte steings are byte pointers to strings of arbitrary-size 
bytes. PRINTYPE BYTES is the only member of this class. Character strings are byte pointers to 
strings of ASCII characters. PRINTYPE STRING is the only member of this class. Both of these 
classes consist of a Iength and a PDP-10 byte pointer. In the case of character strings, the byte-size 
f 


J in the byte pointer is always seven bits per byte (hence Five bytes per word). Example: 


STRING | length 1 


byte-pointer 1 


NGTH of the STRING (in bytes) and byte-pointer points to a byte just before 
instruction is needed to get the first byte). A newly-created 
If of byte-pointer. Unless the string was created by 


ere the elements (characters) of the STRING are stored, 


where length is the 
the beginning of the string (an I 
STRING always has *010700* in the left I 
SPNAME, byto-patnter points to a uvector 
Packed together five 10a 


+ the user program a handle on its control and variable-reference structures, All 

YPE FRAME. Three numbers are needed to designate a frame: 

er to the frame's storage on a control stack, and a 
Example: 


This ctass 
external TYPCs in this class are of 


@ unique [8-bit identity in 


number, a poin 
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where PROCSS-pointer points to the dope words of a PROCESS vector, and unique-id is used for 
(resting LEGAL) the frame-pointer, which points toa frame for some Subroutine call 
rol stack 


A tuple pointer is count 


e control stack. It may be a pointer to the 
Arguincnts to a Suleoutine of a pointer generated by the *TUPLE® declaration in a FUNCTION. Like 
objects in the previous elas ain a unique identifying number used for validation. 
PRIMTYPE TUPLE is the omly member of this class. Example: 


ese ob jeets con 
i 


Other Storage Classes 


The rest of the storage classes include strictly internal TYPEs and pointers to special kinds of lists 
and vectors like Incatives, ATOMS and ASOCs. A pair for any LOCATIVE except a LOCD looks like a 
pair for the corresponding struct the TYPE is different. A LOCD pair looks 
like a tuple pair and needs a word and a half for its value: the unique-id refers to a binding on the 
control stack or to the “global stack” if zero. Thus LOCOs are in a sense “stack objects” and are more 
restricted than ot 


rc. except Of course that 


An OFFSET is stored with the INDEX in the right half of the value word and the Pattern in the left 
half. Since the Pattern cau be either an ATOM or a FORM, the left half actually points to a pair, 

fy points to Pattern, The Pattern ANY is recognized as a special case: the left-h 
pointer is rere, and no pair is used. Thus. if you're making the production version of your program 
and want tn save some storage, you can do something like ¢SETG FOO <PUT-DECL ,FOO ANY>> for 
all OFFSETs. 
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Basie D. 


Lists 


List elements are pairs linked together by the right halves of their first words. The list is 


terminated by a zero in the right half of the last pair. For example the LIST (1 2 3) would look 


The use of politers to tic together elements explains why new elements can 
ing aud circularity work, ete. The links go in only one direction 
ACKed oF TOPped: there’s no way to find the RESTed elements. 


ly to a list, 
f which is 


why a list cannot be 


Since some MDI. values require a word and a half for the value in the pair, they do not fit directly 
into list elements, This problem is solved by having “deferred pointers”. Instead of putting the 
datum directly into the list element, a pointer to another pair is used as the value with the special 
internal TYPC DCFCR, and the real datum is put in the deferred pair. For example the LIST (1 
hello" 3) would look Hike this: 


1 
1 
1 

ISTRING| 51<- 

I----1 

|byte-pntr| 
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Vectors 


A vector is a block of contiguous words. More than one pair can point to the block, possibly at 
different places in the block: this is how sharing occurs among vectors. Pointers that are different 
arise from REST or GROW/BACK operations. The block is Followed by two “dope words", at addresses 
just larger than the largest address in the block. Dope words have the following formal 


‘The various ficlds have the following mean 


ngs: 


type -- The fourth bit from the left (the “vector bit”, 40000 octal) is always one. to distinguish these 
vector dope words From a TYPE/value pair 


If the high-order bit is zero, then the vector is a UVECTOR, and the remaining bits specify the 
Uniform TYPE of the elements. CHUTYPE just puts a new TYPE code in this field. Each element 
is limited to a one-word value: clearly PRIMTYPE STRINGs and BYTESes and stack objects can't 
go in uniform vectors 


If the 


h-order bit is one and the TYPE bits are zero, then this is a regular VECTOR. 


If the high-order bit is one 


nd the TYPE bits are not all zero, then this is either an ATOM, 2 
PROCESS, an ASOC. or a TEMPLATE. The special internal format of these objects will be 
described a little later in this appendix 


Tength -— The high-order bit is the mark bit, used by the garbage collector. The rest of this field 
specifies the number of words in the block, including the dope words. This differs from the 
length given in pairs pointing to this vector, since such pairs may be the result of REST 
operations, 


Grow -- This is actually two 


ne-bit fields. specifying either growth or shrinkage at both the high 
and low ends of the vector. The fields are usually set only when a stack must be grown or 
shrank 


is used by the garbage collector to specify where this vector is moving during 
compaction, 


Examples (numbers in octall: the VECTOR [1 "bye" 3] looks like: 
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I vecToR | 0 | 
get pea 
1 


| stRING | 3 


1 byte pointer 


440000 | 0 


The UvEctoR 


7-4!) looks ike: 


s0000¢FIx | 0 


Atoms 


Internally, atoms are special vector-like objects. An atom contains a value cell (the first two words 
OF the block. Filled in whenever the global or local value of the ATOM is referenced and is not already 
there), an OBLIST pointer, and a print (PNAME), in the following fi 
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pointer-to-value 1 


pointer-to-OBLIST 1 


print-name 


1 
, 
’ 
1 


(ASCIT with NUL padding on end) 


ATOM 1 valid-type | 


Jonath 


If the type field corresponds to TYPE UNBOUND, then the ATOM is locally and globally unbound. 
(This is different from a pair, where the same TYPE UNBOUND is used to mea ed.) If it 
corresponds to TYPE LOCI (an internal TYPE), then the value cell points either to the global stack. if 
bindid is zero, oF to a local control stack. if bindid is non-zero, The bindid field is used to verify 
whether th J to by the value cell is valid in the current environment. The 
pointer-to-OBLIST is either a counting pointer to an oblist (uvector), a positive offset into the 
“transfer vector” (for pure ATOMS). or zero. meaning that this ATOM is not on an OBLIST. The valid- 
type ficld telly whether or not the ATOM represents a TYPE and if so the code for that TYPE; grow 
values are never needed for atoms. 


Associ: 


Associ: 


jons are also special vector-like objects. The first six words of the block contain TYPE/value 
pairs for the ITEM, INDICATOR and AVALUE of the ASOC. The next word contains forward and 
backward pointers in the chain for that bucket of the association hash table. The last word 
contains forward and backward pointers in the chain of all the associations. 


Appen 
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I 
1 
1 pair n 
1 AVALUE 1 
b-- 2222-2 -------1 
' pair 1 
1 bucket-chain pointers 1 
| association-chain pointers | 
! 
1 
i 


PROCESSes 


A PROCESS vector looks exactly like a vector of TYPE/value pairs. It is different only in that the 
garbage collector treats it differently from a normal vector, and it contains extremely volatile 
information when the PROCESS is RUNNING 


Templates 


In a template. the number in the type field (left half of First dope word) identifies to which “storage 
allocation class” this TEMPLATE belongs. and it is used to find PDP-10 instructions in internal tables 
(frozen vectors) for perfor TH, NTH, and PUT operations on any object of this TYPE. 
The programs to build these tables are not part of the interpreter. but the interpreter does know how 
to use them properly. The compiler can put these instructions directly in compiled programs if a 
TEMPLATE is never RESTed: otherwise it must Jet the interpreter discover the appropriate instruction. 
The value word of a template pair contains, not a counting pointer, but the number of elements 
at have been RESted off in the left half and a pointer to the First dope word right hi 


ig LER 
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tral Stack 


Accumutators. wit 
contro! stack 


18, and TP are all pointers into the RUNNING PROCESS's 
base") is a pointer to the arguments to the Subroutine now being run. 
It is set up by the Subroutine-call mediator, and its old value is always restored after a mediated 
Subroutine cturns. 18 (“temporaries base’) points to the frame for the running Subroutine and 
also serves ay a stack base pointer. The TB pointer is really all that is necessary to return from a 
n, for example by ERRET ~ since the frame specifies the entire 
TP ("temporaries pointer’) is the actual stack pointer and always pol 
rol stack 


state of the ca 
to the current top of the en 


While we're on the subject of accumulators, we might as well be complete. Each accumulator 
contains the value word of a pair. the corresponding TYPE words residing in the RUNNING PROCESS 
Vector. When a PROCESS is not RUNNING (or when the garbage collector is running), the accumulator 
contents ai ed in the vector, so that the objects they point to look like elements of the PROCESS 
and thus are not garbage-collectible. 


Accummiators A, @ D. E and 0 are used almost entirely as scratch accumulators, and they are 
Not saved oF restored across Subroutine calls. Of course the interrupt machinery always saves these 
and all other accumulators. A and B are used to return a pair as the value of a Subroutine call. 
Other than thar special feature, they are just like the other scratch accumulators. 


Hand R are used in running RSURRs. M is always set up to point to the start of the RSUBR's code, 
which is actually just a uniform vector of insteuctions. All jumps and other references to the code 
use Has an index register. This makes the code location-insensitive, which is necessary because the 
gode uvector will move around. R is set up to point to the vector of objects needed by the RSUBR. 
‘This accumulator is necessary because objects in garbage-collected space can move around. but the 
poi # in the reference vector are always at the same place relative to its beginning. 


FRU is the internal frame pointer, used in compiled code to keep track of pending Subroutine calls 
rol stack is heavily used. P is the internal-stack pointer, used primarily for internal 
n the interpreter 


One of the nicest Features of the MDL environment is the uniformity of the calling and returning 
sequence. All Subroutines ~ both built-in F/SUBRs and compiled RSUBR(-ENTRY)s ~ are called in 
exactly the same way and retur me way. Arguinents are always passed on the control stack 
and results always end up in the same accumulators. For efficiency reasons, a lot of internal calls 

interpreter circumvent the calling sequence. However, all calls made by the interpreter 
Ing User programs go through the standard calling sequence. 


A Subroutine call is initiated by one of three UUOs (PDP-10 instructions executed by software 
Father than hardware). MCALL (MDL call’) is used when the number of arguments is known at 
assemble or compile time. and this number is less than 16, QCALL Cquick call") may be used if. in 
addition, an RSUBR(-ENTRY) is being called that can be called “quickly” b 
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special information in its reference vector. ACALL Caccumulator call”) is used otherwise. The 
general method of calling a Subroutine is to PUSH (a PDP-10 instruction) pairs representing the 
| Arguments onto the control stack via TP and then either (I) MCALL or QCALL or (2) put the nu 
argun lator and ACALL. Upon return the object returned by the Subrow 
i be in accumulators A and 8, and the arguments will have been POPped off the control stack. 


The call mediator » 
current frame (pa 


cs the contents of P and TP ie address of the calling instruction in the 
ted to by TO). It also stores MDL’s “binding pointer” to the topmost binding in 
the control stack, (The bindings are linked together through the control stack so that searching 
mt thant looking at every object on the stack.) This frame now specifies 

ds a new frame on the 

control stack and st (the current contents of TB), a pointer to 
the Subroutine being called, and the new contents of AB, which is a counting pointer to the 
arguments and is computed From the information in the MCALL or QCALL Instruction or the ACALL 
accumulator. TB is then set up to point to the new frame, and its left half is incremented by one, 

aking a new untaue-td. The mediator then transfers control to the Subrout 


through them is more effic 


the entire state af the caller when the call occurred. The mediator then bui 


res a pointer back to the caller's fra 


A control stack Frame has seven words as show 


' ENTRY | called-addr | 


| j 
1 
i 
| i 1 
The First three words are set up ducing the call {0 the Subroutine. The rest are filled in when this 
routine cally another Subroutine. The left half of TB i incremented every time a Subroutine call 
| before. Obviously this 1d is not strictly unique, since each 256K calls it wraps around to zero. ‘The 
If of 1B is always left pointing one word past the saved-calling-address word in the frame. 
| TP is also left pointing at that word. since that is the top of the control stack at Subroutine entry. 
the CIAL values in compiled programs 
| Appendix 
| 
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‘The following Figure shows what the control stack might look like after several Subroutine calls. 


aras for Si 


frame for St 
Bbccascageen oe 


I temps for Si 


| args for sz 


| frame for Sz 


| temps for s2 


tomps for S3 


The above figure shows the Fra 
P: 


cs all linked together through the control stack (the “execution 
it is easy 10 return to the caller of a given Subroutine (ERRET or RETRY). 


"|. so tha 


Subroutine exit is accomplished simply 


1y the call mediator, w 
restores the “binding 


ich loads the right half of TB from 
pointer”, P, and TP, and transfers control back to 
the instruction following the saved calling address 


the previous frame point 
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All local AION values are kept on the control stack of the PROCESS to which 


ey are local. As 


described before. (he atom contains a word that points to the value on the control stack. The 
pointer ix actually to a six-word “binding block” on the control stack. Binding blocks have the 
for 


Followil 


| BIND or BIND | prev 


fl dec} 1 unique-ia 


previous-binding 


BIND means th 
UBIND me: 
terpreter: 


is a binding for a SPECIAL ATOM (the only kin 
this is a binding for an UNSPECTAL ATOM ~ 


used by compiled programs), 


a for SPECIAL checking by the 


prev points to the closest previous bi 
objects are also linked in this chain): 


nding block for any ATOM (the “access path” — UNWIND 


dec! points to a DECL associated with this binding. for SET(LOC) to check: 
un ique-id is used For validation of this block: and 


Previous-binding points to the closest previous binding for this ATOM (used in unbi 


ng). 


Bindings are generated by an internal subroutine called SPECBIND (name comes from SPECIAL). The 
caller 10 SPECBIND PUSHes consecutive six-word blocks onto the control stack via TP before calling 
SPECBIND. The first word of cach block contains the TYPE code for ATOM in its left half and all 
Ones in its right half, SPECBINDO uses this bit pattern to identify the binding blocks. SPECBIND's 
caller also Fills in the 1d Ieaves the last two words empty. SPECBIND fills in the 
Fest and leaves the “binding pointer” pointing at the topmost binding on the control stack. 
SPECBIND also stores a 


nter to the current binding in the value cell of the 
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Unbinding is accomplished during Subrout 
the call mediator cheeks to see if the saved “l 
they are, SPECSTORE is called. SPECSTORE run 
Pointers in atoms until the “hindi 


return. When the previous frame is being restored, 
nding pointer” and the current one are different: if 

through the binding blocks. restoring old value 
1g Pointer” is equal to the one saved in the frame. 


Obviously variab 


bindi 


is more complicated than this, because ATOMs can have both local and 
Siobal values and even different local values in different PROCESSes. The solution to all of thece 


additional problems lies in the bindid Field of the atom, Each PROCESS vector also contalne a 
current bindid. Whenever an ATOHs local value is desired, the RUNNING PROCESS's bindia ie 
Ehigcked axainst that of the atom: if they ace the same, the atom points to the current value: If non 


the current PROCESS's control stack must be searched 


find @ binding block for this ATOM. This 


RINgINE Sekeme wight be called “shallow binding”. The scarching Is facilitated by having all 
werag's plochs linked together. Referring to global variables is accomplished In a shinilar way, 
Uaing A VECTOR that is eeferred 10 as the “global stack”. The global stack has orly an ATOM ane 


value slot for cach variable, since global values never get rebound, 


EVAL with respect to a different environment causes some additional problems. W 
Of EVAL is done. a brand new bindid is gener 


enever this kind 
‘ed. forcing all current local value cells of atoms to 
sPeCar Invalid.’ Local valucs must now be obtained by searching the control stack, which te 
sneticient compared 1 just pulling them out of the atoms. (The greatest inefficiency occurs when 
Fine MOMs LVAL ix never used twice in a row in the same environment.) A special block 1s built on 

nv ieariaeet ch and linked into the binding-block chain. This block is called a “skip block” or 


environment splice’. and it diverts the “access path” to the new envir: using searches to 
become relative to this new environment. 
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Appendix 2. Predefined Subroutines 


The following is a very brief description of all the primitives (F/SUBRs) currently available in 

MDL. ‘These descriptions are in no way to be considered a definition of the effects or values 

| produced by the primitives. They just try to be as complete and as accurate as is possible in a 

+ slescription. However, because of the complexity of most primitives, many 

important assumptions and cestrietions have been omitted. Even though all primitives return & 

value. some descrip ly the side effects produced by a primitive, because these 
n used for this effect rather than the value 


primitives are mast aft 
P 


A description is given in this format 


| Be ars Corser) 
English descript 


is Format is intended 10 look like a FUNCTION definition, omitting the call to DEFINE and all 

ternal variables and code. The name is just the ATOM that ls used te eefer to ti itive. The 

| names of the arguments are intended to be mnemonic or suggestive of their meanings, ‘The dec! fea 
FUNCTION-styte DECL (chapter 4) for the primitive. In seme cases the DECL may look unusual, 
intern 


ormation to a person about the uses of arguments, not to convey 
ion to the MDL interpreter or compiler. For example, <OR FALSE ANY> is functionally 
| equivalent to AUY, but it indicates that only the “truth” of the argument is significant. Indeed, the 


* (*TUPLE™ FACTORS) 
#OECL ((VALUF) <OR FIX FLOAT> 

(FACTORS) <TUPLE [REST <OR FIX FLOAT>]>) 
multiplies all arguments together (arithmetic) 


+ C*TUPLE® TERMS) 
#DECL ((VALUE) <oR FIX FLOAT 

(TERMS) TUPLE [REST <OR FIX FLOAT>}>) 
adds all arguments together (arithmetic) 
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~ ("OPTIONAL ™ MINUEND "TUPLE® SUBTRANENDS) 
#DECL ((VALUC) <OR FIX FLOAT? 
(MINUEHD) <OR FIX FLOAT? 
CSUBTRANERDS) <TUPLE (REST <OR FIX FLOAT>]>) 
subtracts other arguments from First arguinent (arithmetic) 


7 (*OPTIONAL™ DIVIDEND “TUPLE* DIVISORS) 
#DECL ((VALUE) <OR FIX FLOAT? 
(DIVIDEND) <OR FIX FLOAT? 
(DIVISORS) CTUPLE [REST <OR FIX FLOAT>]>) 
divides First argument by oth ments (arithmetic) 


07 (NUMBER) 
#DECL ((VALUE) <OR 'T *#FALSE ()> 
(HUMBER) <OR FIX FLOAT>) 


Her is 00 (predicate) 


17 (NUMBER) 
#OECL ((VALUC) COR 'T ‘“#FALSE ()> 
(HUNRER) <OR FIX FLOATD) 


tells whether a number is one (predicate) 


ISTEP (PROCESS) 
#DECL ((VALUE PROCESS) PROCESS) 
causes a PROCESS to enter single-step mode 


? (onareT-1 opacct-2) 
#DECL ((VALUF) COR 'T '#FALSE (}> 
(OBJECT-1 OBJECT-2) ANY) 
tells whether two ob jects are “exactly” equal (predicate) 


=? (OBJECT-1 OBJECT-2) 
#DECL ( (VALUE) <OR 'T “FFALSE ()> 
(OBJECT-1 OBJECT-2) AKY) 
tells whether two ob jects are “structurally” equal (predicate) 


ABS (NUMBER) 
#DECL ( (VALUE) OR FIX FLOAT> 
(HUBER) <oR FIX FLOAT) 
s absolute value of a number (arithmetic) 


ACCESS (CHANNEL ACCESS-POINTER) 

#DECL ((VALUF CHANNEL) CHANNEL 
(ACCESS-POINTER) FIX) 

sets access pointer for next 1/O transfer via = CHANNEL 
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ACTIVATE-CHARS ("OPTIONAL STRING) 
#DECL ( (VALUE STRING) STRING) 


16 interrupt characters for term 


al typing (Tenex and Tops-20 versions only) 


AGAIN (“OPTIONAL™ (ACTIVATION .LPROG\ |-INTERRUPTS)) 
DECK (VALUE) AN! 

| (ACTIVATION) ACTIVATTON) 
resumes execution at the given ACTIVATION 


| ALLTYPES () 
#OECL ((VALUE) <VECTOR [REST ATOH]>) 
returns the VECTOR of all type names 


MDECL (CVALUL) OR FALSE ANYD 
(anes) Uist) 
| cal “aud of teuth-values evaluated by the Subrou 


| AND? ("TUPLE TUPLE) 
#DECL ( (VALUE) <OR FALSE ANY> 
(TUPLE) TUPLE) 
computes logical “and” of teuth-values, evaluated at call time 


ANDB (*TUPLE* WoRDS) 
#DECL (¢ VALUE) WORD 

(WORDS) <TUPLE [REST <PRqI 
computes bitwise “and” of machine words 


PE WORD>J>) 


APPLICAGLE? (OBsrcT) 
| #DECL ((VALUE) <OR 'T *#FALSE ()> 
(OBJECT) ARY) 
tells whether argument is applicable (predicate) 


APPLY (APPLICABLE "TUPLE" ARGUMENTS) 
| #DECL ((VALUE) ANY 
(APPLICABLE) APPLICABLE (ARGUMENTS) TUPLE) 
applies First argument to the other argu 


APPLYTYPE (TYPE “OPTIONAL HOW) 

#OECL ((VALUE) COR ATOM APPLICABLE ‘#FALSE ()> 
(TYPE) ATOM (HOW) <OR ATOM APPLICABLE>) 

Specifies or returns how a data type is applied 
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ARGS (CAIL) 
#DECL ({VALUE) TUPLE 
(CALL) COR FRANE ENVIRONMENT ACTIVATION PROCESS?) 
returns arguments of a given un-returned Subroutine call 
ASCII (CODE -OR-CHIARACTER) 
#DECL (VALUE) COR CHARACTER FIX> 
(CODE-OR-CHARACTER) <OR FIX CHARACTER>) 
returns CHARACTER with given ASCII cnde or vice versa 
ASSIGNED? (ATOM *OPTIONAL™ ENV) 
#OECL ((VALUE) COR 'T "#FALSE ()> 
(AION) ATOM CERV) <OR FRAME ENVIRONMENT ACTIVATION PROCESS?) 
tells whether an ATOM has a Incal value (predicate) 
ASSOCIATIONS ¢) 
#DECL ((VALUL) <oR ASOC *#FALSE ()>) 
returns the first object i the association chain 
AT (STRUCTURED “OPTIONAL” (W 1) 
#DECL (CVALUE) LOCATIVE 
| (STRUCTURED) STRUCTURED (N) <oR FIX OFFSET>) 
returns a lncative to the Nth clement of a structure 
ATAN (HUBER) 
#DECL ((VALUE) FLOAT 
(wunBER) <oR FIX FLOAT) 
returns are tangent of a number (arithmetic) 
ATOH (PuAME) 
¥OECL (VALUE) ATO 
CNAME) STRING) 
creates an ATOM with a given name 
AVALUF (ASSOCIATION) 
#OECL (CVALIIE) ANY 
(ASSOCIATION) ASOC) 
© “value” Field of an association 
Appendix 2 
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BACK (STRUCTURE “OPTI 
4DECL ((VALUE) <OR VECTOR 

(N) FIX 
} (STRUCTUR 


AL" ND 
TUPLE UVECTOR STORAGE STRING BYTES TEMPLATE> 


) <OR <PRIMTYPE VECTOR> <PRIMTYPE TUPLED 
PRIMTYPE UVECTOR> <PRINTYPE STORAGE> 
| <PRIMTYPE STRING> <PRIMTYPE BYTES> 
<PRIMTYPE TEMPLATED>) 
oved from! a non-list structure by RESTing and changes to primitive data 


elements 


replaces soi 
type 


BIND (*ARGS" ARGS) 

@DECL (VALUE) 
(ARGS) <LIST [OPT ATO 

executes sequential expressions wi 


] LIST [OPT DECL} ANY>) 
out providing a bound ACTIVATION 


BITS (WIDTH “OPTIOWAL* (RIGHT-EDGE 0)) 
#DECL ((VALUC) BITS 

(WIOTH RIGHT-EOGC) FIX) 
creates a bit mask for PUTHITS and GETBITS 


BLOAT ( "OPTIONAL" 
(FREE 0) (STACK 0) (LOCALS 0) (GLOBALS 0) (TYPES 0) (STORAGE 0) (P-STACK 0) 
MIN GROW-IOCAL GROW-GLOBAL GROW-TYPE GROW-STORAGE PURE P-STACK-SIZE STACK-SIZE) 
#DECL (VALUE) FIX 
(FREE STACK LOCALS GLOBALS TYPES STORAGE P-STACK MIN GROW-LOCAL GROW-GLOBAL 
GROW-TYPE GROW-STORAGE PURE P-STACK-SIZE STACK-SIZE) FIX) 
allocates extra storage temporarily 


BLOAT-STAT ("OPTIONAL™ STATS) 

#DECL ((VALUF) <UVECTOR [27 FIX]> 
(STATS) <UVECTOR [27 ANY]>) 

gives garbage-colicctor and storage statistics 


BLOCK (LOOK-UP) 
#DECL((VALUE LOOK-UP) <OR OBLIST <LIST [REST <OR OBLIST ‘DEFAULT>]>>) 
SETs OBLIST for Inoking up ATOMs during READIng and PARSEing 


BOUND? (ATOM “OPTIONAL” ENV) 
#DECL ( (VALUE) <OR *T *#FALSE ()> 
(ATOM) ATOM (ENV) SOR FRAME ENVIRONMENT ACTIVATION PROCESS>) 
whether an ally bound (predicate) 
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BREAK-SEQ (OBJECT PROCESS) 

#DECL ((VALUE PROCESS) PROCESS 
(OBJECT) ANY) 

Odifies execution sequence of a 


nother PROCESS 


BUFOUT ("OPTIONAL (CHANNEL .OUTCHAN)) 
#OECL ((VALUE CHANHEL) CHANNEL) 
writes our all internal MDL buffers for an output CHANNEL 


BYTE-SIZE (RYTLS) 
#DECL ((VALUE) FIX 

(AYTES) BYTES) 
returns size of bytes ian a byte-steing 


BYTES (SIZE "TUPLE" ELEMENTS) 
WOECL ( (VALUE) BYTES 

(SIZE) FIX (ELEMENTS) <TUPLE [REST FIX]>) 
es a byte-string From explicit arguments 


CHANLIST ¢) 
#DECL ((VALUF) CLIST CREST CHA 
returns a LT 


NEL I>) 
of currently epen 1/0 CHANNELS 


CHANNEL (MOPTTOWAL* (MODE "READ") “TUPLE™ FILE-NAME) 
#DECL ( (VALUE) CHANNEL 

(MODE) STRING (FILE-NAME) TUPLE) 
creates an unopened 1/0 CHANKEL 


CHTYPE (OBJECT TYPE) 
#DECL ( (VALUE) ANY 
(OBJECT) ANY (TYPE) ATOM) 
makes a new pair with a given data type from an old one 


CHUTYPE (UVECTOR TYPE) 

@DECL (VALUE UVECTOR) <PRIMTYP 
(TYPE) ATOM) 

changes the data type of 1 


UvECTOR> 


¢ elements of a uniform vector 


CLOSE (CHANNEL) 
#DECL ((VALUF CHANNEL) CHANNEL) 
closes an 1/0 CHANNEL 


Appen 
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| CLOSURE (FUNCTION "TUPLE* VARIABLES) 
POECL (VALUE) CLOSURE 

| (FUNCTION) FUNCTION (VARIABLES) <TUPLE [REST ATOMI>) 
“binds” the free variables of a FUNCTION to current values 


| COND (“ARGS" CLAUSES) 
#DECL ((VALUL) ANY 


(CLAUSES) <LIST LIST COR FALSE ANYD> CREST <LIST <OR FALSE ANY>>J>) 
evaluates conditions and selected expression 


CONS (NEW-ELCMENT LIST) 
#DECL ((VALUE) LAST 
(WEW-ELEMENT) ANY (LIST) LIST) 
ment to the Front of a LIST 


adds anc 


cos (NUMBER) 
#DECL ((VALUE) FLOAT 

(HUMBER) <OR FIX FLOAT>) 
returns cosine of a number (ar 


CRLF (“OPTIONAL™ (CHANNEL .OUTCHAN)) 
#DECL ((VALUC) *T 
(CHANHEL) CHANNEL) 
prints a carriage-return and line-feed via an output CHANNEL 


DECL-CHECK (“OPTIONAL® SWITCH) 

@DECL ((VALUF) <OR 'T ‘FALSE ()> 
(SWITCH) <OR FALSE ANY>) 

enables or disables type-declaration checking 


DECL? (ORJECT PATIERN) 
#DECL ((VALUE) <OR 'T "#FALSE ()> 
(OBJECT) ANY (PATTERN) <OR ATOM FORM>) 
tells whethicr an object matches a type declaration (predicate) 


DEFINE (*NANE "ARGS" ARGS) 
#DECL ((VALUE) ATOM 

(MANE) ANY (ARGS) <LIST [OPT ATOM] LIST [OPT DECL] ANY>) 
sets the global value of an ATOM 10 a FUNCTION 


DEFHAC (THANE "ARGS" ARGS) 
#DECL ((VALUE) ATOM 

(MAME) ANY (ARGS) <LIST [OPT ATOM] LIST [OPT DECL] ANY?) 
sets the global valuc of an ATOM to a MACRO 
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DEMSIG (WANE) 

DECI ( (VALUE) COR tT *#FALSE ()> 
(MAME) STRING) 

signals an IT'S dacmon 


DISABLE (INTERRUPT) 
#DECL ((VALUF INTERRUPT) INEADER) 
disables an interrup 


DISHISS (VAL “OPTIONAL ACTIVATION INT-LEVEL) 
#DECL ((VALUE VAL) ARY 
(ACTIVATION) ACTIVATION (INT-LEVEL) FIX) 


ECHOPAIR (1H OUT) 
POECL ((VALUL IN) CHANNEL 
COUT) CHARNEL ) 


coordinates 1/0 CHANNELS for echoing characters on rubout 


EMPTY? (oBacCT) 
#DECL ((VALUF) 4T MAFALSE (> 

(OBJECT) STRUCTURED) 
tells whether a structure has zero elements (predicate) 


ENABLE (TNTERRUPT) 
#DECL ((VALUE INTERRUPT) IHEADER) 
enables an interrupt 


ENDBLOCK () 
#DECL ((VALUE) <OR OBLIST <LIST [REST <OR OBLIST ‘DEFAULT>]>>) 
restores the .OGLIST that existed before corresponding call to BLOCK 


ENTRY-LOC (ENTRY) 
#DECL ((VALUE) FIX 

(ENTRY) RSUBR-ENTRY) 
returns the offset in the cade vector of an RSUBR-ENTRY 


EQVB ("TUPLE™ WORDS) 
WOECL (( VALUE) WORD 

(WORDS) <TUPLE [REST <PRIMTYPE WORD>J>) 
nputes bitwise “equ ne words 


Appendix 2 


_ 


‘The MDL Programming Language 233 


ERRET ("OPTIONAL" VAL (FRAME .LERR\ !-INTERRUPTS)) 
#DECL ( (VALUE) ANY 
(VAL) ANY (FRAME) FRAME) 
continues evaluation From the last ERROR or LISTEN or from a given FRAME 


ERROR ("TUPLE" INFO) 
#DECL (VALUE) ANY 
(INFO) TUPLE) 
stops and informs user of an error 


ERRORS () 
#DECL (VALUE) Ont TST) 
returns the OBLIST where error messages are located 


EVAL (ANY “OPTIONAL ENV) 

@DECL ((VALUE) ANY 
(ENV) <C 

evaluates an expression 


TRONMENT ACTIVATION PROCESS>) 
en environment 


EVALTYPE (TYPE “OPTIONAL* HOw) 

WDECL ( (VALUE) COR ATOM APPLICABLE '#FALSE ()> 
(TYPE) ATOM (HOW) COR ATOM APPLICABLE>) 

specifies or returns how 2 data type is evaluated 


EVENT (NAHE "OPTIONAL" PRIORITY WHICH) 
#DECL ( (VALUE) THEADER 

(MAME) COR STRING ATOM INEADER> (PRIORITY) FIX (WHICH) <OR CHANNEL LOCATIVE>) 
sets up an interrupt 


EXP (NUMBER) 
#DECL (( VALUE) FLOAT 
(HUMBER) <OR FIX FLOAT>) 
returns “ec” (0 the power of a number (arithmetic) 


EXPAND (ANY) 
#DECL ((VALUE) ANY 
(ANY) ANY) 


evaluates its argument (only once if a MACRO is involved) in the top-level environment 


FILE-EXISTS? (*TUPLE" FILE-NAME) 
#DECL ( (VALUE) <OR 'T <FALSE STRING FIX>> 
(FILE-NAME) TUPLE) 
tests For existence of a File (predicate) 
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FILE-LENGTH (INCH) 
#DECL ((VALIE) 1 1X 
(CINCH) CHANNEL) 


returns the system-provided length of a file open on ai 


put CHANNEL 


FILECOPY (“OPTIONAL® (INCI .INCHAN) (OUCH .OUTCHAN)) 
#OECL ( (VALUE) FIX 
(INCH OUCH) CHANNEL) 
ters from one CHANNEL to another until end-of-file on the input CHANNEL 


copies ch 


FIX (HUMBER) 
#DECL ((VALUE) FIX 
(HUMBER) SOR FLOAT FIX>) 


1 part of a number (arithmetic) 


FLATSIZE (ANY HAX "OPTIONAL" (RADIX 10)) 
#DECL ((VALUE) <OR FIX '#FALSE ()> 
(ANY) ANY (HAX RADIX) FIX) 


returns number of characters weeded to PRINI an object, if not greater than given maximum 


FLOAD (*THPLE® FILE-WANC-AND-LOOK-UP) 

#DECL ( (VALUE) ‘ "none" 
(FTLE-HAME-ANO-LOOK-UP) TUPLE) 

reads and ev le 


tates all objects in a 


FLOAT (NUMBER) 
#DECL ((VALUE) FLOAT 

(NUMBER) <OR FIX FLOAT>) 
returns floating-point value of a number (arithmetic) 


FORM ("TUPLE™ ELEMENTS) 
#DECL ((VALUE) FORM 
(ELEMENTS) TUPLE) 
creates a FORM fram explicit arguments 


FRAME ("OPTIONAL" (FRAME .LERR\ !-INTERRUPTS)) 
COVALIE) FRA 
(FRAME) <OR FRAME ENVIRONMENT ACTIVATION PROCESS?) 
returns a previous Subroutine call 


FREE-RUN (PROCESS) 

#DECL ((VALUE) <OR PROCESS '#FALSE ()> 
(PROCESS) PROCESS) 

causes a PROCESS 10 leave single-step mode 
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FREEZE (S1MICTURE) 
#DECL ( (VALUE) SOR VECTOR UVECTOR STRING BYTES> 
(STRUCTURE) COR <PRINTYPE VECTOR> <PRIMTYPE TUPLE> <PRIMTYPE UVECTOR> 
<PRIMTYPE STRING> <PRIMTYPE BYTES>>) 
makes copy of argument in non-moving garbage-collected space 


FUNCT (FRANC) 
#DECL ¢(VALUL) ATOM 

(HRAME) <OR FRAME ENVIRONMENT ACTIVATION PROCESS>) 
returns Subro cal 


Haine of a given previous Subrout 


FUNCTION ("ARGS" ARGS) 
#DECL ( (VALUE) FUNCTION 

(ARGS) <LIST [OPT ATOH} LIST [OPT DECLJ ANY) 
creates a FUNCTION 


G=? (NUNGER-1 NUNBER-2) 
#DECL ((VALUE) COR 'T *#FALSE ()> 
(MUNBER-1 HUMBER-2) <OR FIX FLOAT>) 
tells whether First argument is greater than or equal to second (predicate) 


G? (NUNBER-1 NUNBER-2) 
#OECL ((VALUE) COR 'T #FALSE ()> 
(NUNDLR-1 NUNGER-2) <OR FIX FLOAT>) 
tells whether first arguuuent is greater than second (predicate) 


GASSIGNED? (ATOM) 
@DECL ((VALUE) COR 'T '#FALSE ()> 

(ATOH) ATOM) 
tells whether an ATOH has a global value (predicate) 


GBOUND? (ATO) 
#DECL ((VALUE) <OR 'T "#FALSE ()> 
(CATON) ATOM) 


fells whether an ATOH ever had a global value (predicate) 


GC ("OPTIONAL" MIN (EXHAUSTIVE? <>) HS-FREQ) 
#DECL ((VALUC) FIX 
(MIH MS-FREQ) FIX (EXHAUSTIVE?) <OR FALSE ANY>) 
coll anges garbage-collection parameters 


GC-DUMP (ANY PRINTG) 

#DECL ((VAIUF) <OR ANY CUVECTOR <PRIMTYPE WORD>>> 
(ANY) ANY (PRINTB) OR CHANNEL FALSE>) 

dumps an object so that it can be reproduced exactly 
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GC-MON (*OPTIONAL™ SWITCH) 

#DECL ( (VALUE) COR 'T ‘#FALSE ()> 
(SWITCH) OR FALSE ANY>) 

turns garbage-collection monitoring off or on 


GC-READ (READD "OPTIONAL* (EOF-ROUTINE "<ERROR ...>)) 
@DECL ( (VALUE) any 
(READB) CHANNEL (EOF-ROUTINE) ANY) 


inputs an objcet that was previously GC-DUHPed 


GDECL ("ARGS* ARGS) 
@DECL ( (VALUE) ANY 

(ARGS) <LIST [REST LIST [REST ATOM]> <OR ATOM FORM>]>) 
© Lype/structure of the global value of ATOMS 


declares ti 


GET (TIEN INDICATOR "OPTIONAL* (IF-NONE <>)) 
#OECL ((VALUC) ANY 

| CHF) cor 
does NTH or GETPROP 


STRUCTURED ANY> (INDICATOR) COR FIX OFFSET ANY (IF-NONE) ANY) 


GET-DECI, (ATON-oR-orrse1) 

@DECL ( (VALUE) COR ATOM FORM *#FALSE ()> 
(ATON-OR-OFFSET) <OR LocD OFFSET>) 

Sets the type declaration for an ATOM's value or an OFFSET 


GETBITS (FROM FIELD) 
#DECL ¢(VALUE) voRD 

(FROM) <OR CPRINTYPE WORD? CPRIHTYPE STORAGE>> (FIELD) BITS) 
returns a bit ficld of a machine word or STORAGE address 


GETL (ITEM INDICATOR “OPTIONAL (IF-NOWE <>)) 
#DECL ((VALUC) OR LOCATIVE LOCAS AKY> 


! (TICH) <OR STRUCTURED ANY> (INDICATOR) COR FIX OFFSET ANY> (IF-NONE) ANY) 
does AT or GETPL 


GETPL (ITCH INDICATOR "OPTIONAL" (IF-NONE <>)) 
@DECL ((VALUE) <OR LOCAS ANY> 

(TTEM INDICATOR IF-NONE) ANY) 
returns a locative to an assoc 


GETPROP (ITFH INDICATOR *OPTIONAL® (IF-NONE <>)) 
@DECL ( (VALUE) A 

(ITEM INDICATOR IF-NONE) ANY) 
returns the value associated wi 


an item und 


indicator 
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GLOC (ATOM “OPTIONAL™ (MAKE-SLOT <>)) 
@DECL ((VALUE) LOCO 

(ATOM) ATOH (MAKE-SLOT) OR FALSE ANY>) 
te global-value cell of an ATOH 


GO (LABEL) 
@DECL (VALUE) ANY 

(LABEL) <OR ATOM TAG>) 
goes to a label and continues evaluation from there 


GROW (U/VECTOR END BEG) 
DECI (VALUE) — <OR <PRINTYPE VECTOR> <PRIMTYPE UVECTOR>> 

(U/VECTOR) COR <PRIMTYPE VECTOR> <PRINTYPE UVECTOR>> (END BEG) FIX) 
Wereases the size of a vector oF u) 


GUNASSIGN (ATOM) 
#DECL ((VALUE ATOM) ATOM) 
causes an ATOM to have no global value 


GVAL (ATOM) 
@DECL ((VALUE) ANY 
(ATOM) ATOM) 
returns the global value of an ATOM 


HANDLER (IHEADER HANDLER “OPTIONAL* (PROCESS #PROCESS 0)) 
#DECL ( (VALUE) HANDLER 
CIUEADER) HEADER (HANDLER) <OR HANDLER APPLICABLE> (PROCESS) PROCESS) 


creates an interrupt HANDLER 


HANG (*OPTIONAL™ (UNHANG <>)) 
#DECL ((VALUE) ANY 
CUNHANS) ANY) 
does nothing. interruptibly. potentially forever 


IBYTES (SIZE LENGTH "OPTIONAL (ELEMENT 0)) 
#DECL ( (VALUE) BYTES 

(SIZE LENGTH) FIX (ELEMENT) ANY) 
creates a byte-string from implicit arguments 


IFORM (LENGTH “OPTIONAL (ELEMENT #LOSE 0)) 
@DECL ((VALUE) FORM 

(LENGTH) FIX (ELEMENT) ANY) 
creates a FORM f) plicit arguments 
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ILIST (LENGTH "OPTIONAL* (ELEMENT #LOSE 0)) 
#DECL ((VALUE) LIST 

(LENGTH) FIX (ELEMENT) ANY) 
creates a LIST from implicit arguments 


IMAGE (CODE “OPTIONAL™ (CHANNEL .OUTCHAN)) 
#DECL ( (VALUE CODE) FIX 

(CHANNEL) CHANNEL) 
sends an image-mode character via an output CHANNEL 


IN (POINTER) 
#OECL ( (VALUE) ANY 

(POINTER) LOCATIVE) 
returns the object pointed to by a locative 


INDEX (OFFSET) 
#DECL ((VALUE) FIX 

(OFFSET) OFFSET) 
fetches the integral part of an OFFSET 


INDICATOR (ASSOCIATION) 
#DECL ((VALUE) ANY 

(ASSOCIATION) ASOC) 
returns the “indicator” field of an association 


INSERT (PNAME OBLIS1) 
#DECL ((VALUE) ATOM 

(PNAME) <OR ATOM STRING> (OBLIST) OBLIST) 
adds an ATOM to an OBLIST 


INT-LEVEL (“OPTIONAL NEW-INT-LEVEL) 
@DECL ( (VALUE) FIX 
(NEW-INT-LEVEL) FIX) 


returns and/or sets current interrupt level 


INTERRUPT (NAME “TUPLE™ HANDLER-ARGS) 
#DECL ((VALUE) <OR 'T '#FALSE-()> 

(HAME) <OR STRING ATOM IHEADER> (HANDLER-ARGS) TUPLE) 
causes an interrupt to occur 


INTERRUPTS () 
#DECL ((VALUE) OBLTST) 
returns the OBLIST on which interrupt names are kept 
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HANDLER (RODY TYPE OTHER-NAME-1 OTHER-NAME-2 

“OPTIONAL™ (HY-HAME-1 <UNAME>) (MY-NAHE-2 <ONAHE>)) 
#DECL ((VALUE) 'T 

(BODY) <OR STRING UVECTOR> (TYPE) FIX 

(COTHER-HAME-1 OTIIER-NAME-2 MY-NAME-1 MY-NAME-2) STRING) 
is the builtin handler for *IPC* (ITS version only) 


1pc-orF () 
DECI. ((VALUL) #1) 
stops all listening on the IPG device (ITS version only) 


IPC-ON ("OPT TONA 
#DECL (CVALI) 1 

(HY-HANE-1 MY-HAME-2) STRING) 
listens on the IVC device (LTS version only) 


(HY-MAME=1 CUNAMED) (MY-NAME-2 <ONAMED)) 


ISTORAGE (LENGIH "OPT 
#DECL ((VALUE) STORAGE 

CLCNGTH) FIX (CLEMENT) ANY) 
creates a non-garbage-coliccted STORAGE from implicit arguments (archaic) 


NAL" (ELEMENT #LOSE 0)) 


ISTRING (LENGTH "OPTIONAL" (ELEMENT 1\*@)) 
#OECL ((VALUC) STRING 

(LENGTH) FIX (ELEMENT) ANY) 
creates a character-string From implicit arguments 


ITEM (ASSOCIATION) 
#DECL (VALUE) ARY 

(ASSOCIATION) ASOC) 
returns the “item” field of an association 


ITUPLE (LENGTH “OPTIONAL” (ELEMENT #LOSE 0)) 

#DECL ({VALUE) TUPLE 
(LENGTIN) FIX (ELEHEN 

creates a TUPLE from implicit argu 


IUVECTOR (LENGTH “OPTIONAL” 

#DECL ( (VALUE) UVECTOR 
(LENGTH) FIX (CLEMENT) ANY) 

creates a UVECTOR from implicit arguments 


NT #LOSE 0)) 


IVECTOR (LENGTH “OPTIONAL” (LEM 
#DECL ((VALUE) VECTOR 
(LENGTH) FIX (ELEME 


#LOSE 0)) 


Any) 
creates a VECTOR from implicit arguinents 
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ONAME () 
#DECL ((VALUE) STRING) 
returns the “job name” of MDIL's process 


7 (MUMBER-1 HUMBER-2) 

WOECL ((VALUE) COR 'T *#FALSE ()> 

CHUMHER-1 HUMTER-2) <OR FIX FLOAT>) 

ther First arguinent Is less than or equal to second (predicate) 


LL? CNUMBER-1 NUMBrR-2) 
#DECL ( (VALUE) <OR 'T T4FALSE ()> 

(HUMBER-1 NUMBER-2) <OR FIX FLOAT?) 
tells whether First argument is less than second (predicate) 


LEGAL? (S1ACK-ongECT) 
#DECL ((VALUE) <OR 'T ‘FALSE ()> 
(STACK-ODJECT) ANY) 

tells whether arg 


nent (which might five o 


he control stack) is still legal (predicate) 


LENGTH (oBaECT) 
#DECL ((VALUE) FIX 
(OBSECT) STRUCTURED) 


returns the number of elements, 


LENGTH? (oBarcT MAX) 
MDECL ¢((VALUL) <OR FIX *#FALSE ()> 

(OBJECT) STRUCTURED (MAX) FIX) 

cther length of structure is less than or equal to an integer (predicate) 


tells wh 


LINK (EXPR PNANE “OPTTONAL" (OBLIST <1 .OBLIST>)) 
#DECL ((VALUE EXPR) ANY 

(PHAME) STRING (OBLIST) OBLIST) 
creates a symbolic LIKK te any expression for READIng 


LIST ("TUPLE" ELEMENTS) 
#DECL ((VALUE) LIST 
(CLEMENTS) TUPLE) 


creates a LIST from explicit arguments 


LISTEN ("TUPLE® INFO) 
@DECL ((VALUC) ANY 
(INFO) TUPLE) 


stops and user that MDL is listening 
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LLOC (ATOM *OPTIONAL™ ENV) 
#DECL ((VALUE) Loco 

(ENV) <OR FRAME ENVIRONMENT ACTIVATION PROCESS>) 
returns a locative to the local-value cell of an ATOM 


LOAD (CHANNEL "OPTIONAL" (LOOK-UP .OBLIST)) 
#DECL ((VALUE) **DONE* 

(LOOK-UP) <OR OBLIST <LIST [REST <OR OBLIST ‘DEFAULT>]>>) 
evaluates all ob jects via an input CHANNEL 


] reads 


LOCATIVE? (OBJECT) 
1 #DECL ((VALUE) <OR 'T *#FALSE ()> 
(OBJECT) ANY) 
tells whether an object is a locative (predicate) 


Loc (wumecr) 
#DECL ((VALUE) FLOAT 

(NUMBER) <OR FIX FLOAT>) 

| returns natural logarith er (arithmetic) 


| LocouT () 
| #DECL ((VALUE) ‘FALSE ()) 
logs © operating system (useful for background processes) 


LOOKUP (PNAHE OBLIST) 

@DECL (VALUE) <OR ATOM ‘#FALSE ()> 

| (PNAME) STRING (OBLIST) OBLIST) 
returns an ATOM found on a given OBLIST 


LPARSE (“OPTIONAL™ 
(STRING .PARSE-STRING) (RADIX 10) (LOOK-UP .OBLIST) PARSE-TABLE LOOK-AHEAD) 
#DECL ¢((VALUE) LIST 
| (STRING) STRING (RADIX) FIX (PARSE-TABLE) VECTOR (LOOK-AHEAD) CHARACTER 
(LOOK-UP) <OR OBLIST <LIST [REST <OR OBLIST ‘DEFAULT>]>>) 
| returns a LIST of the objects parsed From a STRING (sections 7.6.63, 15.7.2, 17.1.3) 


LSH_(WoRD ANOUNT) 
@DECL ((VALUE) WORD 

| (WORD) <PRIMTYPE WORO> (AMOUNT) FIX) 
| shifts bits ina machine word 


LVAL (ATOM “OPTIONAL™ ENV) 

#DECL ((VALUE) ANY 

| (ENV) COR FRAME ENVIRONMENT ACTIVATION PROCESS>) 
Feturns the local value of an ATOM 
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MAIN () 
#DECL ((VALUE) PROCESS) 
returns #PROCESS 1 (the main PROCESS) 


MANIFEST (*TUPLE* ATOMS) 
WDECL ((VALUE) *T 

(ATOMS) <TUPLE [REST ATOHJ>) 
declares the global values of ATOMs to be constant 


MANIFEST? (ATOM) 

#DECL ((VALUC) <OR 'T "#FALSE ()> 
(ATOM) ATO) 

tells whether the global value of an ATOM is cons: 


t (predicate) 


MAPF (FINAL-FCH LOOP-FCN "TUPLE* STRUCTURES) 

@DECL ((VALUE) ANY 
(FINAL-FCM) <OR APPLICABLE FALSE> (LOOP-FCN) APPLICABLE 
(STRUCTURES) <TUPLE [REST STRUCTURED ]>) 

maps Function onto clements of structures 


MAPLEAVE (“OPTIONAL™ (VAL T)) 
#DECL ¢ 
(VAL) ANY) 
leaves the most recent MAPF/R with 3 value 


MAPR (FINAL-FCN LOOP-FCN "TUPLE* STRUCTURES) 

#DECL ( (VALUE) ANY 
(FINAL-FCN) <OR APPLICABLE FALSE> (LOOP-FCN) APPLICABLE 
(STRUCTURES) <TUPLE [REST STRUCTURED]>) 

maps function onto RESTs of structures 


MAPRET ("TUPLE™ ELEMENTS) 
#OECL ¢ 
(ELEMENTS) TUPLE) 
returns a variable number of objects to the current MAPF/R 


MAPSTOP (*TUPLE™ ELEMENTS) 
DCL ¢ 
(ELEMENTS) TUPLE) 
MAPRETs. then stops looping of MAPF/R and causes application 


MAX C*TUPLE™ NUMBERS) 
#DECL ( (VALUE) <OR FIX FLOAT> 
(NUMBERS) <TUPLE [REST <OR FIX FLOAT>]>) 


returns the greatest of its argu (arithmetic) 
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ME () 
#DECL ((VALUF) PROCESS) 
returns the current PROCESS 


MEMBER (OBJECT STRUCTURE) 
#DECL ((VALUE) COR STRUCTURED *#FALSE ()> 
(OBJECT) ANY (STRUCTURE) STRUCTURED) 


tells whether an object is “st 


ucturally” equal to some ek 


nent of a structure (predicate) 


MENQ (ORAKCT STRUCTURE) 
#DECL ( (VALUE) COR STRUCTURED '#FALSE (> 

(OBIECT) ANY (STRUCTURE) STRUCTURED) 
tells whether an object is “exactly” equal to some element of a steucture (predicate) 


MIN (*TUPLE" HUMBERS) 
#DECL ((VALUC) <OR FIX FLOAT: 
CHUMBERS) CTUPLE [REST COR FIX FLOAT>I>) 


returns the least of its arguments (arithmetic) 


MOBLIST (WANE "OPTIONAL" (LENGTH 13)) 
#OECL ((VALUT) ONL IST 

(MAME) ATOH (LENGTH) FIX) 
creates or gets an OBLIST 


MOD (NUMKER MODULUS) 
#OECL ( (VALUE) FIX 
(HUMBER MODULUS) FIX) 


returns mumber-theorctic remainder (Fixed-point residue) (arithmetic) 


MONAD? (OBJECT) 
@DECL ((VALUE) COR 'T ‘FALSE ()> 
(OBIECT) ANY) 
tells whether an object is either uns 


uctured or an empty structure (predicate) 


Ne=? (OBJCCT-1 oBaccT-2) 

MDECL ((VALUT) <OR 'T '#FALSE ()> 
(ORJECT-1 ORJECT-2) ANY) 

tells whether two objects are NOT “exactly 


equal (predicate) 


foparet-1 onacet-2) 
#DECL ((VALUE) COR 'T '#FALSE ()> 
(OBJECT-1 OBJECT-2) AKY) 
tells whether two objects are NOT “structurally” equal (predicate) 
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NETACC (CHAWHEL) 

#DECL ((VALUE) <OR CHANNEL '#FALSE ()> 
(CHAHHEL) CHANNEL) 

accepts a network connection 


NETS (CHANNEL) 
#DECK. (CVALUP CHANNEL) CHANNEL) 
forces operating-sysiem network-CHAKNEL buffer to be sent 


NETSTATE (CHANNEL) 

#DECL ( (VALI) <UVECTOR FIX FIX FIX> 
(CHANHEL) CHANNEL) 

returns state information for a net 


work CHANNEL 


NEWTYPE (HPW-TYPE OLD-TYPE *OPTIONAL" PATTERN) 
#DECL ( (VALUE NEW-TYPE) ATOM 

(OLD-TYPE) ATOM (PATTERN) <OR ATOM FORHD) 
defines a new data type 


NEXT (ASSOCIATION) 

#DECL ( (VALUE) <OR ASOC ‘#FALSE ()> 
(ASSOCIATION) ASOC) 

returns the next object itt the association chain 


NEXTCHR ("oPT row HAN) (EOF-ROUTINE "ERROR ...>)) 
#DECL ((VALUF) <OR CHARACTER FIX> 


(CHANHEL) CHANNEL (FOF-ROUTINE) ANY) 
Feturns the character that will next be read via an input CHAN! 


NOT (oBarcT) 

#OECL ((VALUE) <OR *T *#FALSE ()> 
(OBJECT) COR FALSE ANY>) 

computes lngical of a truth-value 


NTH (STRUCTURED “OPTIONAL” Ny 
#OECL ( (VALUE) Any 

(it) <OR FIX OFFSET>) 
fetches the Nth clement of a structure 


OBLIST? (ATOM) 

#DECL ((VAILIC) ¢OR Ont 
(AION) ATOR) 
OBLIST or False if none (predicate) 


ST t#FALSE ()> 
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OFF (INTERRUPT "OPTIO} 
#DECL (CVALUF) COR HANDLER INCADCR '#FALSE ()> 

(INTERRUPT) COR WANOLER IHEADER STRING ATOM> (WHICH) <OR CHANNEL LOCATIVE>) 
removes an interrupt HAHOLER of destroys an interrupt 


OFFSET (MW PATTERN) 
DECI. (CVALUE) OFFSET 

(1) FIX (PATTERN) COR 
1 integer with attae 


‘OM FORK>) 
8 type declaration 


ON (NAME APPLICABLE PRIORITY "OPTIONAL" (PROCESS 0) WHICH) 
#DECL ((VALUE) HANDLER 
(UAE) <OR STRING ATOM> (APPLICABLE) APPLICABLE (PRIORITY) FIX 
(PROCESS) COR FIX PROCESS (WITCH) <OR CHANNEL LOCATIVE>) 
interrupt and creates an interrupt HANDLER 


OPEN (MOR TONAL" (HODE "TUPLE™ FILE-NAME) 
#DECL ((VALUL) <OR CHA FALSE STRING STRING FIX>> 
(MODE) STRING (FILE-WANE) TUPLE) 
> CHANNEL 


Wopens anf 


OPEN-NR ("OPTIONAL (MODE "READ") "TUPLE" FILE-MAME) 

#DECL ( (VALUE) <OR CHANNEL <FALSE STRING STRING FIX>> 
(MONE) STRING (FILE-NAME) TUPLE) 

creates and apens an 1/O CHANNEL without changing file's reference date 


OR (MARGS" ARGS) 
#DECL. ((VALUE) COR FALSE ANY> 
(ARGS) LIST) 


computes logical inclusive “or” of truth-values, evaluated by the Subroutine 


OR? (*TUPIEC® TUPLE) 
@DECL ((VALUF) <OR FALSE ANY> 
(TUPLE) TUPLE) 


computes logical inclusive “or” of truth-values, evaluated at call time 


ORB (“TUPLE* WORDS) 
#DECL ((VALUE) WORD 
(WORDS) <TUPLE [REST <PRIMTYPE WORD>]>) 


computes bitwise inclusive “or” of machine words 


(rortic s 

#DECL ((VALUIC) COR 'T '#FALSE ()> 
(SWITCH) <OR ANY FALSE>) 

enables or disables overflow error (arithmetic) 
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PARSE ("OPTIONAL 


(STRING .PARSE-STRING) (RADIX 10) (LOOK-UP -OBLIST) PARSE-TABLE LOOK-AHEAD) 
#DECL (CVALUE) ANY 
(STRING) STRING (RADTX) FIX (PARSE-TABLE) VECTOR (LOOK-AHEAD) CHARACTER 


(LOOK-UP) COR OBLIST <LIST [REST <OR OBLIST ‘DEFAULT>J>>) 
parses a STRING into an ob ject (sections 7.6.6.2. 15.7.2. 17.13) 


PCODE (HAME OFFSET) 
#DECL ( (VALUE) PCOnE 


(HANF) STRING (OFFSET) FIX) 
creates pointer to pure RSURR code 
PNAME (ATO!) 
DECK ((VALUC) STRING 

(Aton) ATOR) 
returns the print-name of an ATOM as a distinet copy 
PRIMTYPE (OIECT) 


#DECL (VALI) ATOM 
(OBJECT) ANY) 
ns the primitive data type of an object 


retu 


PRIMTYPE-C (TYPE) 

#DECL ( (VALUE) PRIMTYPE-c 
(TYPE) ATOM) 

gets a “storage allocation code” for a d: 


PRINI (OBJECT "OPTIONAL" (CHAN 

#DECL ((VALUE OBJECT) ANY 
(CHANNEL) CHANNEL) 

prints an object via an output CHANNEL 


EL .OUTCHAN)) 


PRINC (ONJECT “OPTIONAL™ (CHAK 
#DECL C(VAINIE OFJTCT) ANY 
(CHANNEL) CHAMKEL) 

output CHANHEL without STRING or CHARACTER brackets or ATOM trailers 


EL -OUTCHAN)) 


prints an object via 


r (CHANNEL .OUTCHAN)) 
#DECL ((VALUE OBJECT) ANY 

(CHANHEL) CHANNEL) 
prints an object via an output CHANNEL between new-line and space 
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PRINTG (BUFFER CHANNEL) 
#DECL ((VALUE BUFFER) <<OR UVECTOR STORAGE> [REST <PRIMTYPE WORD>]> 
(CHANNEL) CHANNEL) 
writes binary information via an output CHANNEL 


PRINTSTRING (BUFFER "OPTIONAL™ (CHANNEL .OUTCHAN) (COUNT <LENGTH .BUFFER>)) 
#OECL ((VALUE COUNT) FIX 

(BUFFER) STRING (CHANNEL) CHANNEL) 
writes contents of a STRING via au output CHANNEL 


PRINTTYPE (TYPE "OPTIONAL" HOW) 

#DECL ( (VALUE) <OR ATOM APPLICABLE '#FALSE ()> 
(TYPE) ATOM (HOW) <OR ATOM APPLICABLE?) 

specifies or returns how a data type is printed 


PROCESS (STARTUP) 
#DECL ((VALUE) PROCESS 

(STARTUP) APPLICABLE) 
creates a new PROCESS with given startup functio 


PROG (ARGS: 
#DECL ((VALUE) ANY 

(ARGS) <LIST [OPT ATOM] LIST [OPT DECL] ANY>) 
executes sequential expressions 


PURIFY ("TUPLE™ TUPLE) 
#DECL ((VALUE) ANY 

(TUPLE) TUPLE) 
purifies objects for sharing by different operat; 


g-system processes 


PUT (ITEM INDICATOR “OPTIONAL* VAL) 
#DECL (<VALUE) ANY 
(ITEM) ‘<OR STRUCTURED ANYD (INDICATOR) <OR FIX OFFSET ANY? (VAL) ANYD | 


stores into structure or does PUTPROP 


PUT-DECL (IDENTIFIER PATTERN) 

#DECL ((VALUE IDENTIFIER) <OR LOCD OFFSET> | 
(PATTERN) <OR ATOM FORK>) 

changes the type declaration for an ATOH's value or an OFFSET I 


PUTBITS (TO FIELO "OPTIONAL" (FROM 0)) 
#DECL ((VALUE) <PRIMTYPE WORD> 
(TO FROM) <PRIMTYPE WORD> (FIELD) BITS) 


Sin a nrach 
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PUTPROP (ITEM INDICATOR "OPTIONAL" VAL) 
#DECL ((VALUE) ANY 

(ITEM INDICATOR VAL) ANY) 
(is)associates a value with an item under an indicator 


PUTREST (HEAD TAIL) 

#DECL ((VALUE HEAD) <PRIMTYPE LIST? 
(TAIL) <PRIMTYPE LIST>) 

Feplaces the rest of a list 


quit () 
#DECL ((VALUE) *#FALSE ()) 
exits from MDL gracefully 


QUITTER (WAS-TYPED CHANNEL) 
@DECL ((VALUE WAS-TYPED) CHARACTER 
(CHANNEL) CHANNEL) 

‘errupt handler for ~G and ~S-quit features 


is the 


QUOTE ("ARGS™ ARGS) 
#DECL ((VALUE) ANY 
(ARGS) LIST) 


returns the first argument unevaluated 


RANDOM ( "OPTIONAL" SEED-1 SEED-2) 
#DECL ( (VALUE) FIX 
(SEED-1 SEED-2) FIX) 
generates a uniform pseudo-random integer (arithmetic) 


READ ( "OPTIONAL" 
(CHANNEL .INCHAN) (EOF-ROUTINE *<ERROR 
#DECL ((VALUE) ANY 
(CHANNEL) CHANNEL (EOF-ROUTINE) ANY (READ-TABLE) VECTOR 
(LOOK-UP) <OR OBLIST <LIST [REST <OR OBLIST ‘DEFAULT>]>>) 
eads one object via an input CHANNEL (sections I.I.I.l, 11.3, 15.7.1, 17.1.3) 


>) (LOOK-UP .OBLIST) READ-TABLE) 


READE (BUFFER CHANNEL "OPTIONAL™ (EOF-ROUTINE ‘"<ERROR 
#DECL ((VALUE) FIX 

(BUFFER) <<OR UVECTOR STORAGE> [REST <PRINTYPE WORD>]> 
(CHANEL) CHANNEL (EOF-ROUTINE) ANY) 
ary information via an inpi 


>»? 
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READCHR (*OPTIONAL™ (CHANNEL -INCHAN) (EOF-ROUTINE *<ERROR 
@DECL ( (VALUE) <OR CHARACTER FIX> 

(CHANNEL) CHANNEL (EOF-ROUTINE) ANY) 
reads one character via an input CHANNEL 


READSTRING (BUFFER "OPTIONAL" (CHANNEL .INCHAN) (STOP <LENGTH .BUFFER>) 
(EOF-ROUTINE *<ERROR -..>)) 

#DECL ((VALUE) FIX 

(BUFFER) STRING (CHANNEL) CHANNEL (STOP) COR FIX STRING> (EOF-ROUTINE) ANY) 

10a STRING via an input CHANNEL 


reads 


REALTIMER (“OPTIONAL* INTERVAL) 
@DECL ( (VALUE) <OR FIX FLOAT *#FALSE ()> 

CINTERVAL) <OR FIX FLOAT>) 
sets or fetches interval for real-time interrupts (ITS version only) 


REMOVE (PNANE “OPTIONAL™ OBLIST) 
#DECL ((VALUE) <OR ATOM ‘FALSE ()> 

(PNAME) <OR ATOM STRING> (OBLIST) OBLIST) 
removes an ATOM from an OBLIST 


RENAME (“TUPLE* FILE-NAME/S) 
@DECL ((VALUE) COR 'T <FALSE STRING FIX>> 

(FILE-NAME/S) TUPLE COR STRING CHANNEL>>) 
renames or deletes a disk file 


REP () 
@DECL ((VALUE) ANY) 
is the built-in function for READ-EVAL-PRINT loop 


REPEAT ("ARGS™ ARGS) 
@DECL ((VALUE) ANY 

(ARGS) <LIST [OPT ATOM] LIST [OPT DECL} ANY>) 
executes sequential expressions repeatedly 


RESET (CHANNEL) 

@DECL ({VALUE) <OR CHANNEL FALSE STRING STRING FIX>> 
(CHANNEL) CHANNEL) 

eopens an I/O CHANNEL at its beginning 


REST (STRUCTURED “OPTIONAL” (N 1)) 
#OECL ((VALUE) STRUCTURED 
(Ny FIX) 
removes the first N elements from a steucture and changes to primitive data type 
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RESTORE ("OPTIONAL™ NAME-1 NAME-2 NAME-3 NAHE-4) 
@DECL ((VALUC) **RESTOREO™ 

(NAME-1 NAME-2 NAME-3 NAME-4) STRING) 
restores MDL’s state from a File 


RESUME (VAL "OPTIONAL" (PROCESS <RESUMER>)) 
#DECL ((VALUE) ANY 

(VAL) ANY (PROCESS) PROCESS) 
transfers execution to another PROCESS 


RESUMER ("OPTIOWAL™ (PROCESS <HE>)) 

#DECL ( (VALUE) <OR PROCESS ‘#FALSE ()> 
(PROCESS) PROCESS) 

returns the PROCESS that last resumed the given PROCESS 


RETRY ("OPTIONAL* FRAME) 
#veEcL ¢ 

(FRAME) FRAME) 
retries a previous Subrou 


ine call, usually from the error level 


RETURN (“OPTIONAL™ (VAL T) (ACTIVATION .LPROG\ !-INTERRUPTS)) 
@DECL ((VALUE) ANY 

(VAL) ANY (ACTIVATION) ACTIVATION) 
leaves a PROG/REPEAT with a value 


RGLOC (ATOM "OPTIONAL" (MAKE-SLOT <>)) 
#DECL ((VALUE) LocR 
(ATOM) ATOH (HAKE-SLOT) <OR FALSE ANY>) 
returits a locative to the global-value cell of an ATOM for pure-program use 


RooT () 
#DECL ((VALUE) OBLIST) 
returns the OBLIST containing names of primitives 


ROT (WORD AMOUNT) 
#DECL ((VALUE) WORD 
(WORD) <PRIMTYPE WORD> (AMOUNT) FIX) 
ord 


RSUBR (CANDIDATE) 
@DECL ((VALUE) RSUBR 

(CANDIDATE) <VECTOR <OR CODE PCODE> ATOM DECL [REST ANYJ>) 
creates an RSUBR 
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RSUBR-ENTRY (CANDIDATE OFFSET) 
#DECL ((VALUE) RSUBR-ENTRY 

(CANDIDATE) <VECTOR <OR ATOM RSUBR> ATOM DECL> (OFFSET) FIX) 
sentry point 10 an RSUBR 


adds a 


RSUBR-LINK ("OPTIONAL™ SWITCH) 
#DECL ((VALUT) COR *T *#FALSE ()> 
(SWITCH) COR FALSE ANY>) 
enables or disables the automatic RSUBR linking feature 


RUNINT (*TUPLE® TUPLE) 
#DECL ( (VALUE) ANY 

(TUPLE) TUPLE) 
applics interrupt handler (For internal use only) 


RUNTIMER ("OPTIONAL™ INTERVAL) 
#DECL ((VALUE) COR FIX FLOAT '#FALSE ()> 

(INTERVAL) <OR FIX FLOAT?) 
sets or fetches interval for run-time interrupt (ITS version only) 


SAVE (*TUPLE™ FILE-HAME-AND-GC?) 
#DECL ((VALUC) "*SAVED" 
(FILE-HAME-AND-GC?) <TUPLE [OPT STRING] [OPT STRING) 
[OPT STRING] [OPT STRING] [OPT <OR FALSE ANY>J>) 


chtire state of MDL to a File 


SEND (OTHER-NANE-1 OTHER-NAHE-2 BODY 
OPTIONAL" (TYPE 0) (MY-NAME~1 CUNAME>) (MY-NAME-2 <JNAME>)) 
#DECL ({VALUE) COR 'T '#FALSE ()> 
COTHER-NA 2 MY-NAME-1 MY-NAME-2) STRING (TYPE) FIX 
(BODY) <oR <UVECTOR [REST <PRIMTYPE WORD>]>>) 
sends an IPG message (ITS version only) 


SEND-WAIT (OTI R-NAHT-1 OTICR-NAME-2 BODY 

"OPTIONAL (TYPE 0) (MY-NAME~1 CUNAME>) (HY-NAME-2 <ONAME>)) 
#DECL ( (VALUE) *T 

(OTHER-WAME-1 OTIER-NAME-2 MY-NAME-1 HY-NAME-2) STRING (TYPE) FIX 

(BODY) <OR STRING STORAGE <UVECTOR [REST <PRIHTYPE WORD>]>>) 
sends an IPC message aud waits for it 10 be received (ITS version only) 


SET (ATOM LVAL "OPTIONAL* ENV) 
#DECL ((VALUF LVAL) ANY 

(ATOM) ATOH (ENV) <or 

ges the local value of an ATO? 


FRAME ENVIRONMENT ACTIVATION PROCESS>) 
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SETG (ATOM GVAL) 

#DECL ( (VALUE GVAL) ANY 
CATON) ATOH) 

changes the global value of an ATOH 


SETLOC (POTHIER ONJECT) 
@DECL ((VALUE OBJECT) ANY 

(POTNTER) LOCATIVE) 
es the contents pointed to by a locative 


SIN (NUMBER) 
#DECL ((VALUE) FLOAT 

(HUMBER) <OR FIX FLOAT?) 
Ss sine of a mtniber (arithmetic) 


SLEEP (<OR FIX FLOAT> “OPTIONAL™ (UNI 
@DECL (( VALUE) 
(UNHAHG) ARY) 

thing. inteeruptibly, the given number of seconds 


NG <>)) 


does 


SHAME ("OPTIOUAL" DIRECTORY) 
#DECL ((VALUE DIRECTORY) STRING) 
sets of returns the directory name used by default for new 1/O CHANNELS 
SORT (PRED KEY-SIRUC CORD-LENGTH 1) (KEY-OFFSET 0) 
STRUCS-AD-RECORD-LENGTHS) 
#DECL ((VALUE KEY-STRUC) <OR <PRIMTYPE VECTOR> <PRIMTYPE TUPLE> <PRIMTYPE UVECTOR>> 
CeneD) FALSE APPLICAGLE> (RECORD-LENGTH KEY-OFFSET) FIX 
(OTHER-STRUCS-AND-RECORN-LENGTHS) 
TUPLE [REST OR <PRINTYPE VECTOR> <PRIMTYPE TUPLE> <PRIMTYPE UVECTOR>> FIX]>) 
sorts clements of a structure and rearranges other structures 


SPECIAL-CHECK (“OPTIONAL" SWITCH) 

#DECL ((VALUE) <OR 'T '#FALSE ()> 
(SWITCH) <OR ANY FALSE?) 

erpreter special-cheeking on or off 


SPECIAL-NODE (“OPTIONAL SWITCH) 
#DECL. ((VALUE) <OR 'SPECTAL *UNSPECTAL> 

(SWITCH) <OR *SPECTAL ‘UNSPECIAL>) 
sets specialty declaration used by default 
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SPNAME (ATOM) 
@DECL ( (VALUE) STRING 

(ATOM) ATOR) 
returns the print-name of an ATOM by sharing it 


SORT (NUMBER) 
#DECL ((VALUE) FLOAT 

(HUMBER) COR FIX FLOAT) 
returns square root of a number (arithmetic) 


SQUOTA (SYMBOL) 
#OECL ((VALUE) COR FIX *#FALSE ()> 

(SYMBOL) <PRIMTYPE WORD>) 

address of an internal interpreter symbol (for internal use only) 


gets th 


STACKFORN ("ARGS" ARGS) 
#DECL ((VALUE) ANY 

(ARGS) LIST) 
applies a Function to stacked arguments (archaic) 


STATE (PROCESS) 
#DECL ( (VALUE) ATOM 
(PROCESS) PROCESS) 


returns a PROCESS's current state 


STRCOMP (STRING-1 STRING-2) 
#OECL ((VALUE) <oR *1 *0 *=1> 

(STRING-1 STRING-2) <OR ATOM STRING>) 
compares two character-strings or two print-names 


STRING ("TUPLE ELEMENTS) 
#DECL ( (VALUE) STRI 

CELENCHTS) <TUPLE [REST <OR STRING CHARACTER>]>) 
creates a character-string from explicit arguments 


STRUCTURED? (OBJECT) 
#DECL ((VALUC) <oR ‘T 
(OBIFCT) ARY) 
Fan object is structured (predicate) 


FALSE ()> 


tells whe 


SUBSTITUTE (NW OLD) 
#DECL ( (VALUE OLD) ANY 
(NEW) ANY) 
substitutes one ob ject for another in 


entire address space 
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SUBSTRUC (TROM "OPTIONAL" (REST 0) (AMOUNT <- <LENGTH .OBJECT> .REST>) TO) 
#DECL ((VALUE 10) <OR LIST VECTOR UVECTOR STRING BYTES> 
(FROM) <OR <PRINTYPE LIST> <PRIMTYPE VECTOR> <PRIMTYPE TUPLE> 
<PRINTYPE UVECTOR> <PRINTYPE STRING> <PRIMTYPE BYTES>> 
(REST AMOUNT) FIX) 


rt of} a structure inte another 


copies (yp 


SUICIDE (VAL "OPTIONAL" (PROCESS <RESUMER>)) 
#DECL ( (VALUE) ANY 


(VAL) ANY (PROCESS) PROCESS) 
causes the current PROCESS to die and rest 


TAG (LABLL) 

#DECL ((VALUE) TAG 
(LABEL) ATOM) 

creates a TAG far use by GO 


TERPRI (“OPTIOWAL* (CHANNEL .OUTCHAN)) 
#DECL (VALUE) #FALSE () 

(CHANNEL) CHANNEL) 
prints a carriage-return and line-feed via an output CHANNEL 


TIME (*TUPLE" IGHORED) 
#DECL ( (VALUE) FLOAT 
(iGwoRFO) TUPLE) 
returns the clapsed execution time in seconds 


TOP (STRUCTURE) 
#DECL ((VALUE) COR VECTOR TUPLE UVECTOR STORAGE STRING BYTES TEMPLATE> 
(STRUCTURE) <OR <PRIMTYPE VECTOR> <PRIMTYPE TUPLE> 
<PRIMTYPE UVECTOR> <PRIMTYPE STORAGE> 
<PRIMTYPE STRING> <PRIMTYPE BYTES> <PRIMTYPE TEMPLATE>>) 


Feplaces all elements removed from a non-list structure by RESTing and changes to primitive data 
type 


TTYECHO (CHANUEL SHTTCH) 
#DECL ((VALUE CHANEL) CHANNEL 

(SWITCH) <OR FALSE ANY) 
turns cehoing (of characters typed on a terminal) on or off 


TUPLE ("TUPLE* ELEMENTS) 
@DECL ((VALUE) TUPLE 
(ELFMENTS) TUPLE) 


es a TUP, explicit arguments 
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TYI ("OPTIONAL" CHANNEL) 
WDECL ((VALUC) CHARACTER 

(CHANMEL) CHANNEL) 
inputs a CHARACTER from a te 


inal immediately 


TYPE (OBJECT) 

#DECL ((VALUE) AION 
(OBJECT) ANY) 

returns the data type of an object 


TYPE-C (1YPF "OPTIONAL" PRIMTYPE) 
#DECL ((VALUE) 1YPE-C 

(TYPE PRINTYPE) ATOM) 
makes a data-type ende for pure-progeam use 


TYPE-W (TYPE “OPTIONAL” PRIMTYPE RIGHT-HALF) 
#DECL ((VALUC) TYPE-W 

CTYPE PRIMTYPL) ATOM (RIGHT-HALF) <PRINTYPE WORD?) 
makes a data-type machine word for pure-progeam use 


TYPE? (OBJECT “TUPLE® TYPES) 
#DECL ( (VALUE) <OR ATOM '#FALSE (> 

(OBJECT) ANY (TYPES) <TUPLE ATOM [REST ATOH]>) 
tells whether an object's data Lype is one of the given types (predicate) 


TYPEPRIM (TYPE) 
#DECL ( (VALUE) ATOM 

(TYPE) ATOM) 
returns a data type’s pr 


itive type 


UNANE (> 
#DECL ((VALUE) STRING) 
returns the “user naine” of MDL’s process 


UNASSIGH (ATO! "OPTIONAL" ENV) 
#DECL ( (VALUE ATOM) ATOM 
(ERY) COR FRAME ENVIRONMENT ACTIVATION PROCESS?) 


UNMANIFEST ("TUPLE™ ATOMS) 

#DECL ((VALUC) 'T 
(ATOMS) <TUPLE [ 

declares the glob 


ST ATOMJ>) 
0 be constants 
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UNPARSE (ORJECT OPTIONAL" RADIX) 
#DECL ((VALUE) STRING 

(OUIJECT) ARY (RADIX) FIX) 
creates a STRING representation of an abject 


UNWIND (*HORMAL " CLEAN-UP) 
#DECL ((VALUE) ANY 
(NORMAL CLEAN-UP) ANY) 


specifies cleaning-up during non-local return 


UTYPE (UVECTOR) 

#DECL ((VALNC) ATOM 
CUVECTOR) <PRIMTYPE UVECTOR>) 

returns the data type of all clements of a uniform vector 


UVECTOR (* TUPLE” CLEMENTS) 
#DECL ((VALUE) UVECTOR 

(ELEMENTS) TUPLE) 
creates a UVECTOR from explicit arguinents 


VALIO-TYPE? (TYPE) 

@DECL ( (VALUE) COR TYPE-C '#FALSE ()> 
(TYPE) ATOM) 

A1OH is the n 


tells whether al 


ne of a type (predicate) 


VALRET (HESSAGE) 
#DECL ((VALUE) T#FALSE () 

(MESSAGE) COR STRING FIX>) 
Passes a message (o the superior operating-system process 


VALUE (ATOM "or 
#DECL ((VALUE) A 

(ATOH) ATOM (ENV) ENVIRON 
returns the local or else the global value of an ATOM 


Env) 


ENT ACTIVATION PROCESS>) 


VECTOR ("TUPLE" ELEMENTS) 
#DECL ((VALUE) VECTOR 

(ELEHEUTS) TUPLE) 
creates a VICTOR from explicit arguments 


XONAME () 
#DECL ((VALUE) STRING) 
stended job name" of MDL’s process 
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XORB (*TUPLE* WORDS) 
#DECL ( (VALUE) ORD 
(WORDS) <TUPLE CREST <PRIMTYPE WORD>]>) 
"of machine words 


XUNAME () 
#DECL ((VALUE) STRING) 
returns the “intended ser name” of MDL's process 
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Appendix 8. Predefined Types 


On these twa p 
different, and var 


able showing cach of MDL's predefined TYPEs, its primitive type If 
is Flags: S for STRUCTURED, E for EVALTYPE not QUOTE, and A for APPLICABLE. 


X means that an objcet of that TYPE © 
ed, a CN 


not be CHTYPEd to and hence cannot be READ in (if 
*T-CHTYPE-INTO error is usual) 


B me: 


s that an object of that TYPE cannot be READ in (if attempted, a STORAGE-TYPES-DIFFER 
error is wsialh that instead it is built by the interpreter or CHTYPEd to by a program, and that its 
PRINTed representation makes it look as though its TYPEPRIM were different. 


% means that an oh jcet of that TYPE is PRINTed using % notation an 


can be READ in only that way. 


TYPE TYPEPRIM SEA commen 

ACTIVATION FRAME x 

Asoc 8 sic: only one S 

ATOM 

BITS worn 

BYTES s 

CHANNEL VECTOR s x 

CHARACTER WORD 

CLOSURE List s oA 

cove UVECTOR s 

Dect List s 

DISMISS Aron can be returned by interrupt handler 
ENVIRONMENT FRAME 8 

FALSE ust s 

FIX worD A 

FLOAT worp 

FORM LIST SE 

FRAME 8 

FSUBR word aX 

FUNCTION LIST SoA 

HANOLER VECTOR s x 

IHEADER VECTOR s X “interrupt header” 

ILLEGAL worD X Garbage collector may put this on n 7 object. 
INTERNAL THTCRMAL~TYPE K should not be seen by programs 
LINK Aton X for terminal shorthand 

LIsT SE 

Loca 8 locative to TUPLE 
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Locas 8B _ locative to ASOC 

toca 8 locative to BYTES 

Loco % — locative to G/LVAL 

Loct B_ locative to LIST 

Locr % — locative to GVAL in pure program 

tocs 8 locative to STRING 

oct 8 locative to TEMPLATE 

Locu 8 locative to UVECTOR 

Locv B locative to VECTOR 

Lose worD a place holder 

MACRO List ae 

OBLIST UVECTOR s x 

OFFSET OFFSET Ax 

PCOnE word X “pure code” 

PRIMTYPE-C WORD % — “primtype code” 

PROCESS 8 

QUICK-ENTRY VECTOR S A% an RSUBR-ENTRY that has been QCALLed and RSUBR- 
LINKed 

QUICK-RSUBR VECTOR ‘A 4/8 an RSUBR that has been QCALLed and RSUBR-LINKed 

READA FRANE X in eof slot during recursive READ via READ~TABLE 

RSUBR vrcToR S A X/B if code vector is pure/impure, respectively 

RSUBR-ENTRY VECTOR S Ax 

SEGHENT LIsT SE 

SPLICE LIst s for returning many things via READ-TABLE 

STORAGE s If possible, use FREEZE SUBR instead. 

STRING s 

SUBR worD aX 

TAG VECTOR SX _ for non-local Gos 

TEMPLATE SB __ The interpreter itself can't build one. See Lebling (1979). 

TIME woro used internally to identify FRAMES 

TUPLE SB _ vector on the control stack 

TYPE-c worD % “type code” 

TYPE-W worn % “type word™ 

unsound worD X value of unassigned but bound ATOM, as seen by locatives 

UVECTOR SE “uniform vector” 

VECTOR SE 

worD 


Appendix 3 


— 


260 


The MDL Programming Language 


Appendix 4. Error Messages 


This is a list of all error-naming ATOMS initially i 


and appropriate examples or elucid 


ACCESS-FAILURE 


ALREADY -DEFINCD-ERRET-NON-FALSE-TO-REDEFINE 
APPLY-OR-STACKFORM-OF -FSUBR 


ARG-WRONG- TYPE 
ARGUMENT-OUT-OF -RANGE 


ATOM-ALREADY-THERE 


ATOM-NOT- FYE -HANC-OR-SPECTAL-SYHBOL 
ATOM-ON-DTFEEREH|-OBLIST 
ATTEMPT-TO-BREAK-OWN-SEQUENCE 
ATTEMPT-TO-CIANGE -MANIFEST-VART 
ATTEMPT-TO-CLOSE-1T¥-CHANNEL 
ATTEMPT~10-FF FR-UNDEFERABLE-INTERRUPT 


BLE 


ATTEMPT-T0-GROW-VECTOR 
ATTEMPT-10-miiG-AToMS- 
ATTEMP1 -10-MUNG-PURE-STRUCTURE 
ATTEMPT -TO-SUICIDE-TO-SELF 

BAD-ARGUNENT-LI 
|AD-ASCI I-CHARACTER 


BAD-BYTES-DECL 
BAD-CHANHEL 
BAD-CLAUSE 


BAD-DCCLARATION-LIST 
BAD-DEF AUIL 1-ONL 15T~SPECTF ICATION 
BAD-ENTRY-BLOCK 


BAD-ENVIRONHENT 
BAD-FIXUPS. 
BAD-FUNARG 
BAD-GC-READ-FILE 


the ERRORS OBLIST, in the left-hand column, 
tions, where necessary 


the right-hand column. 


ACCESS, RESTORE (Tenex and Tops-20 
versions only) 


First argument to APPLY, STACKFORM, 
MAPF/R doesn't EVAL all its arguments, 


<ASCIT 99998 Secs 
or REST too big or sinall. 

INSERT "T" CROOT>>S <LINK 'T 
<ROOT>>S 

DECL problem 

INSERT, LINK, REMOVE 

<BREAK-SEQ T <HED>S 


argument to NTH 


<CLOSE , INCHANDS 
“Undeferable” interrupt (eg. "ERROR*) 
While INT-LEVEL is too high to handle # 
GROW argument greater than <* 16 1024> 
<PUT <SPNAME T> 1 !\T>S 

attempt to write into pure page 

<SUICIDE <HED>S 

<GDECL ("HI") STRINGS 

A character with wrong byte size or 
ASCII code more than 177 octal has been 
read (how?) 


Argument to COND is non-LIST or empty 
ust 

DECL in bad form 

bad use of DEFAULT in LIST of OBLISTs 
RSUBR-ENTRY does not point to good 
RSUBR 


CLOSURE in bad form 
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BAD-INPUT-BUFFER (for a CHANNEL) 

BAD-LINK <GUNASSIGN <CHTYPE fink ATOM>> 

BAD-MACRO-TABLE -READ-TABLE or .PARSE-TABLE is not = 
vector. 

BAD-OBLIST-OR-LIST-THEREOF Alleged look-up list is not of TYPE OBLIST 
or LIST. 

BAD-PARSE-STRING non-STRING argument to PARSE 

BAD~PNAME attempt to output ATOM with missing or 


zero-fength PNAME 
BAD-PRINTYPEC 

BAD-TEMPLATE-DATA 

BAD-TYPE-CODE 


BAD-TYPE-NANE ATOM purports to be a TYPE but isn't. 

BAD-TYPE-SPECIFICATION DECL problem 

BAD-USE-OF -BYTE-STRING as 

BAD-USE-OF -HACRO 

BAD-USE -OF -SQUTGGLY-BRACKETS os 

BAD-VECTOR Bad argument to RSUBR-ENTRY 

BYTE-SIZE-BAD NET" CHANNEL 

CANT-CHTYPE-INTO <CHTYPE 1 SUBR>S 

CANT-FIND-TEMPLATE attempt to GC-READ a structure containing 
a TEMPLATE whose TYPE does not exist 

CANT-OPEN-OUTPUT-FILE SAVE 

CANT-RETRY-ENTRY-GONE attempt to RETRY a call to an RSUBR- 


ENTRY whose RSUBR cannot be found 
CANT-SUBSTITUTE-WITH-STRING-OR-TUPLE-AND-OTHER  <SUGSTITUTE "T* TDS 


CAN\*T-PARSE <PARSE "*>S CPARSE ")*>S 
CHANNEL-CLOSED <READ <CLOSE channel>>S 
CONTROL-G? “6 
COUNT-GREATER-THAN-STRING-SIZE <PRINTSTRING ** ,OUTCHAN 12S 
DANGEROUS~INTERRUPT-NOT-HANDLED (Sce section 21.8.15) (TS version only) 
DATA-CANT-GO-IN-UNIFORM-VECTOR IC*STRING" JS ![<FRAME>]S 
DATA-CAN\ *T~GO-IN-STORAGE FREEZE ISTORAGE 


DECL-ELEMENT-HOT-FORM-OR-ATOM 
DECL-VIOLATION 


DEVICE-OR-SNANE-DIFFERS RENAME 
ELEHENT-1YPE-NOT-ATOM-FORM-OR-VECTOR DECL problem 
EMPTY-FORM-IN-DECL 

EMPTY-OR/PRIMTYPE-FORM <OR> or <PRIMTYPE> in DECL 


EMPTY. <READSTRING **>5 
END-OF-FILE 

ERRET-TYPE-NAME-DESIRED 

ERROR~IN-COMPILED-CODE 

FILE-NoT-FOUND RESTORE 
FILE-SYSTEM-ERROR 
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FIRST-ARG-WRONG-TYPE 
FIRST-ELEMENT-OF -VECTOR-NOT-CODE 
FIRST-VECTOR-ELEMENT-NOT-REST-OR-A-FIX 
FRAME-NO-LONGER-EXISTS 
HANDLER-ALREADY-IN-USE 

HAS-ENPTY-BODY 

TLLEGAL 

ILLEGAL ~ARGUMENT-BLOCK 


TLLEGAL-FRAME 
ILLEGAL-LOCATIVE 
TLLEGAL-SEGHENT 


ILLEGAL TENEX-F TLE-NAME 
INT-DEVICE -WRONG-TYPE-EVALUATION-RESULT 


INTERNAL -BACK-OR-TOP-OF-A-LIST 
INTERNAL-INTERRUPT 
INTERRUPT-UNAVAILADLE-ON-TENEX 
TTS-CHANNFLS-FXHAUSTED 


MEANINGLESS~-PARAMETER-DECLARATION 
MESSAGE-T00-DIG 
MUDDLE-VERS10NS-DIFFER 
NEGATIVE-ARGUMERT 
NIL-LIST-OF-OBLISTS 
NO-FIXUP-FILE 


NO-ITS-CHANNELS-FREE 
NO-MORE-PAGES 
NO-PROCESS-TO-RESUME 
NO-ROOM-AVATLABLE 


NO-SAV-FILE 


NO-STORAGE 
NON~6-BIT-CHARACTER-IN-F ILE-NAME 
NON-APPLICABLE-REP 
NON-APPLICARLE-TYPE 
NON-ATOMIC-ARGUMENT 
NON-ATOMIC-OBLIST-NAME 
NON-DSk-DEVICE 

NON-EVALUATEADL E-TYPE 
NON-EXISTENT-TAG 


NON-STRUCTURED~ARG-TO-INTERNAL-PUT-REST-NTH-TOP-OR-BACK 
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RSUBR in bad form, 
#DECL ((X) <LIST [FOO}>) 
(unused) 


<#FUNCTION ((X)) 1>5 


attempt {0 PRINT a TUPLE that no longer 
exists 


Third and later arguments to MAPF/R 
not STRUCTURED. 

(Tenex and Tops-20 versions only) 
function for INT" input CHANNEL 
returned non-CHARACTER. 

in compiled code 

(unused) 

(Tenex and Tops-20 versions only) 
Interpreter couldn't open an ITS 1/0 
channel. 

bad object in argument LIST of Functi 
IPC (ITS version only) 

RESTORE (version = release) 


<SET OBLIST '()> TS 
MDL couldn't find fixup file (section 
19.9). 

IPC-ON (ITS version only) 

for pure-code mapping 

<OR <RESUMER> <RESUME>>S 

MDL couldn't allocate a page to map In 
pure code. 

MDL couldn't find pure-code file (section 
19.9). 

No free storage av; 


lable For GROW. 


<VALUE REP> not APPLICABLE 


Ti-38 
(unused) 
(unused) 
(unused) 


compiled code 
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NON-TYPE-FOR-PRIMTYPE-ARG 
NOT-A-TTY-TYPC-CHANNEL 
NOT-HANDLFD 
NOT~IN-ARG-LIST 


NOT-IN-MAP-FUNCTION 


NOT-IN-PROC 
NTH-BY-A-HEGATIVE-NUNBER 
NTH-REST-PUT-OUT-OF -RANGE 


NULL-STRING 
NUMBER-OUT-OF-RANGE 
ON-AN-ODLIST-ALREADY 

OUT-oF -noUNDS 

OVERFLOW 

PDL-OVERF LOW-GUFFER-EXNAUSTED 


PROCESS-NOT-RESUMARLE 
PROCESS-HOT-RUWAPLE-OR-RESUMABLE 
PURE-LOAD-FAILURE 
READCR-SYHTAX-FRROR-CRRET-ANYTHT 
RSUBR-FNIRY-UNL INKED 


-T0-GO-ON 


RSUBR-1N-GAD-FORHAT 
RSUBR-LACKS-FIXUPS 


SECOND-ARG-WRONG-TYPE 
STORAGE-TYPES-DIFFER 


STRUCTURE -CONTATNS-UNDUMPABLE-TYPE 
SUBS TITUTE-TYPE-FOR-TYPE 
TEMPLATE-TYPE 


TEMPLATE-1YPE-VIOLATION 
THIRD-ARG-WRONG-TYPE 
TOO-FEW-ARGUII HTS-SUPPLIED 
TOO-MANY-ARGS~TO-PRINTYPE-DECL 
TOO-MANY-ARGS-TO-SPECIAL-UNSPECTAL-DECL 
TOO-MANY-ARGUNENTS-SUPPLIEO 
TOP-LEVEL -FRAI 
TYPE-ALREADY-EXISTS 
TYPE-HISHATCH 

UNDEF TREO 
TYPES-0IFFER-IN-STORAGE-OBJECT 
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<PRIMTYPE not-type> in DECL 


First argument to OFF not ONed, 

TUPLE or ITUPLE called outside argument 
ust 

MAPRET, NAPLEAVE, MAPSTOP not within 
MAPFR 

<RETURNDS CAGAINDS 

in compiled code 

in compiled code 

zero-length STRING 

238s 

<INSERT T <ROOT>>S 

<1 "(2S BLOAT argument too large 

</ 1 09S <* 1E30 1E30>S 

Stack overflow while trying to expand 
stack: use RETRY 

use of another PROCESS's FRAME, etc. 


Pure-code file disappeared. 


RSUOR-ENTRY whose RSUBR cannot be 
found 


KEEP-FIXUPS should have been true when 
RSUBR was input 


<CHTYPE 1 LIST>S <CHUTYPE *1f1] 
Lists 

<GC-DUMP <HE> <>>S 

<SUBSTITUTE SUBR FSUBR>S 

attempt to GC-READ a structure containi 
2 TEMPLATE whose TYPE is defined but 
not 2 TEMPLATE 


<PRIMTYPE any ..-> 
<SPECIAL any ...> 


<ERRET> <FRAME <FRAME <FRAME>>>S 
NEWTYPE 
attempt to make a value violate its DECL 


ISTORAGE 
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TYPES-DIT | FR-TH-UNTFORM-VECTOR 
UNASSIGHED-VARIABLE 
UNATTACHIED-PATH-RAME-SEPARATOR 
UNBOUND-VARTARLE 

UNMATEHEN 
UVECTOR-UT-TYPE-VIOLATION 


VECTOR-LU'SS-THAN-2-CLCMCNTS 
WRONG-DIRLC}1ON-CHANNEL 


WRONG-NU 
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IT os 
is 


ENDBLOCK with no mateh 
Pur, SETLOC, SUBSTRUC in 
code 

#DECL ((X) <LIST CRESTI>) 
<OPEN “HYFILE">S (Mode 
misspelt.) 


Ne 
OO 
SSSSeee—eeeoaoannnnnnnnananarx€«s—— SSS 
SS ————————————————— 
———— 
ooo” eee Sms Oo 
eee 
OOOO 
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Appendix 5. Initial Settings 


The various switches and useful variables in MDL are initially set up with the following values: 
<ACTIVATE-CHARS <STRING ASCII 7> <ASCIT 19> <ASCIT 15>>> 
i"Tenex and Tops-20 versions only* 
<DECL-CHECK T 
<UNASSIGN <GUNASSIGH DEV>> 
<GC-MON <>> 
<SUT INCHAN CSETG INCHAN COPEN *READ* *TTY:*>>> 
UNASSIGH KEEP-FIXUPS> 
<UNASSIGN <GUNASSTGN NM1>> 
<UNASSTGH <GUHASSIGN NH2>> 
ESET OBLIST <SETG OBLIST (<MOBLIST INITIAL 151> <ROOT>)>> 
SET OUTCHAN <SETG QUTCHAN <OPEN "PRINT* "TTY:">>> 
OVERTLOW T 
<UINASSIGN REDEFINE? 
<RSUDR-LINK T 
<SETG <UNASSIGN SNM? "workin 
<SPECTAL-MODE UNSPECIAL> 
<SET THIS-PROCESS <SETG THIS-PROCESS <HAIN>>> 
<ON “CIAR" ,QUITTER B 0 , INCHAN> 
<ON "IPC" .IPC-HANDLER 1> "ITS version only* 


-directory™> 
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ming Language = 


Topic Index 


sized words refer to other items in this index. 


arguments “OPTIONAL* “TUPLE* "ARGS* (parameter) 
+ = = / ADS EXP LOG SIN COS ATAM MIN MAX RANDON OT 17 ==7 L7 GT Le? 
Ge? Nes? 

array VECTOR UVECTOR TUPLE STRING BYTES TENPLATE 

assig’ SET SETG DEFINE DEFHAC ENVIRONMENT (value parameter binding) 

binging BOUND? GBOUND? ASSIGNED? GASSIGNED? LEGAL? (assignment value parameter) 

bits WORD BITS PUTBITS GETBITS BYTES ANOB ORB XORS EQVB LSH ROT 

block BIND PROG REPEAT BLOCK ENDBLOCK OBLIST MOBLIST OBLIST? !~ 

boolean FALSE COND AND AND? OR ORT NOT (comparison) 

bugs errors) 

call FORM APPLY APPLICABLE? EVAL SEGMENT 

change PUT-DECL PUTPROP SET SETE (side effect) | 

character CHARACTER STRING ASCII PRINC READCHR NEXTCHR FLATSIZE LISTEN PARSE 
LPARSE UNPARSE 

circular PUTREST PUT LENGTH? FLATSIZE 

comma SVAL SETG 


comments + FUNCTION ASSOCIATION 


comparison 


= N=? G7 Le? L? Ge? 07 17 MAX MIN STRCOMP FLATSIZE LENGTHT 
(boolean) 


conditional COND AND OR (boolean) 


Topic Index 
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concatenation  SEGHENT STRING CONS 
coroutine PROCESS STATE RESUME SUICIDE RESUMER ME MAIN BREAK-SEQ ISTEP FREE-RUN 
data type TYPE TYPE? PRIMTYPE TYPEPRIM CHTYPE UTYPE CHUTYPE NEWTYPE PRINTTYPE 


APPLYTYPE EVALTYPE ALLTYPES VALIO-TYPE? 


decimal . 

do (loops execute call) 

dump SAVE (output) 

errors FRAME ARGS FUNCT ERROR ERRORS ERRET RETRY UNWIND 

escape \ 767s 70 

execute EVAL APPLY QUOTE FSUBR *ARGS* (call) 

exit RETURN ACTIVATION (goto) 

Fite system FILECOPY FILE-LENGTH RENAME OPEN OPEN-NR CHANNEL FILE-EXISTS? NMI NZ 
DEV SNM SHAME 

goto GO TAG UNWIND PROG REPEAT AGAIN RETURN ACTIVATION “ACT* (loops) 

graphics STORAGE IMAGE 

identifier ATOM PNAHE SPNAME LINK LOOKUP INSERT REMOVE OBLIST SPECIAL (parameter 
value) 

if (conditional) 


NTH OFFSET GET PUT BACK TOP (loops) 


READ RCADCHR NEXTCHR READS READSTRING READ-TABLE GC-READ ECHOPAIR 
OPEN ACCESS LOAD FLOAD RESTORE RESET 


integer FIX (ari 


netic) 


HANDLER ON OFF ENABLE DISABLE INT-LEVEL DISMISS INTERRUPT 
iteration (oops) 


leave (quit) 


Topic Index 
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loading FLOAD SAVE RESTORE LOAD 
location (pointer) 
loops REPEAT PROG RETURN GO ACTIVATION AGAIN HAPF MAPR ILIST IVECTOR 


TUVECTOR ISTRING IBYTES IFORM 


macro % %% LINK READ-TABLE PARSE-TABLE DEFMAC EXPAND MACRO 


tor "READ" “WRITE* 


Uulti-processing (coroutine) 


outp 


PRINT PRIN] PRINC PRINTB PRINTSTRING IMAGE GC-DUMP ECHOPAIR FLATSIZE 
SAVE TERPRI CRLF OPEN ACCESS RESET BUFOUT NETS 


parameter FUNCTION ATOM LVAL SET SPECIAL UNSPECIAL (identifier value) 
parentheses ust 

parse PARSE LPARSE PARSE-TABLE UNPARSE 

period LVAL SET READ 

pointer LOCATIVE AT IW SETLOC LIST 

predicate (boolean) 

primitives SUBR FSUBR ROOT GVAL SETS 

procedure FUNCTION DEFINE DEFHAC GVAL CLOSURE 

quit 7G 7S ~O QUIT VALRET LOGOUT RETURN (loops) 
real FLOAT (arithmetic) 

recursion (always assumed and built in) 


MEQ MEMBER =7 


(comparison) 
sharing SEGHENT GROW SUBSTRUC 
side effect PUT PUTREST SETLOC SUBSTRUC (change) 


Topic Index 
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sixbit NAME XONAME SEND SENO-WAIT TPC-ON 

storage SC BLOAT BLOAT-STAT FREEZE TUPLE *Gc* (structure) 

structure LIST VECTOR UVECTOR STRING BYTES TEMPLATE STRUCTURED? EMPTY? MONAD? 
LENGTH LENGTH? (concatenation) 

subroutine (procedure primitive) 

temporary “AUX* BIND PROG REPEAT 

terminal ty) 

text (character) 

trailer osList 

true (boolean) 

ny LISTEN “L_~G ~@ “D rubout ECHOPAIR TTYECHO TYI "BLOCKED" "UNBLOCKED" 
ACTIVATE-CHARS (character) 

unbingin ding) 

value LVAL GVAL VALUE IN SET SETG ENVIRONMENT ASSIGNED? GASSIGNED? BOUND? 


SBOUND? “BIND™ ACTIVATION “ACT™ (parameter) RETURN (quit loops) 


Topic Index 
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Name Index sneT* 
ropr* 86 137 
TOPTIONAL™ 81 86 137 
"PARITY" 
An underscored pag uber refers to a “PRINT* 
primary description: an unadorned page *PRINTB™ 
tumber refers te a secondary description. *PRINTO™ 
"puRE* 
te “QuoTE* 
1s "READ" 105 184 187 211 
Ds *READB™ 
! *REALT" 
! 3) “RUNT* 
' "SAVE" 
1< *sty* 
> *SYSOOWN" 
re TUPLE" 87 105 187 
NN "UNBLOCKED" 
nW "VALUE 
WRITE" [87 211 
x 24 55 100 
o>" 102 ‘ 24 44 46 100 
"act™ a 87 
"ARGS" 82 87 s 4 16 98 113 184 185 187 
"AUX" SI 87 103 105 
"BIND" 83.86 i 24 152 
"BLOCKED" 182 187 co 152 
CALL" 83 87 
“CHAR” a 2457 
cLocK* 
"DIVERT-AGC™ 195 « 2454 
"osk* 19? 108 
“ERROR” ) 24 54 
"EXTRA" 
cc" . 23 28 151 159 
*ILOPR™ 
"INFERTOR™ + 28 151 
"INPUT" 
wINT* F 2431 
roc" 
"rec" - 28 151 
“mpve 
rmuD 102 23.24 32 
*MUODLE* ios 
NAME” S487 
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fi 28 151 BLOAT 
BLOAT-STAT 98 

or zt BLock 142 145 
BLOCKED 170 

1? BOUND? 79 175 187 

isTeP BREAK-SEQ 3 
BREAKER 174 
BuFOUT Tor 4 15 
BYTE-SIZE 66 

< 24 BYTES 55 65 66 213 

722 CALLER 164 


cH 


LIST 10 


CHANNEL 65 101 102 103 104 122 
> 1 CHARACTER 64 100 154 
CHTYPE 45 211 
Acs 28 CHUTYPE 64 216 
ACCESS tor ose 103 
ACTIVATE-CHARS 184 CLOSURE 88 
ACTIVATION 4d 150 183 193 205 cove 164 
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